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-TITLE CVMJAAO MSV11-J MEMORY DIAG. 
-NLIST TOC 


IDENTIFICATION 
PRODUCT CODE: AC-U135A-MC 
PRODUCT NAME: CVMJAA MSV11-J MEMORY DIAGNOSTIC 
PRODUCT DATE: MARCH 1985 
MAINTAINER: E.S.0. METHODS 


The information in this document is subject to change 
without notice and should not be construed es a commitment 
by Digital Equipment Corporation. Digital Equipment 
Corporation assumes no responsibility for any errors that 
may appeer in this manual. 


The software described in this document is furnished to the 
purchaser under a license for use on a single computer 
system and can be copied (with inclusion of Digital's 
oe notice) only for use in such i a except as may 
otherwise be provided in writing by Digital. 


Digital Equipment Corporation assumes no ge ag she for 
t use or gh» Dk of its software on equipment that is 
not supplied by Digital. 


COPYRIGHT (C) 1985 Digital Equipment Corporation 
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OPERATIONAL SWITCH SETTINGS 
SWITCH REGISTER DEFINITIONS 


—_— ———s 


* 

* SWITCH USE 

e  wssesees i ssesenrecensoesecesa: 

* 15 HALT ON ERROR 

4 14 LOOP ON TEST 

* 13 INHIBIT ERROR TYPEOUTS 

* 12 INHIBIT RELOCATION 

* 11 QUICK VERIFY 

* 10 BELL ON ERROR 

+ 9 LOOP ON ERROR 

+ 8 HALT PROGRAM CUNRELOCATED RESTORE LOADERS) 
¥ 7 DETAILED ERROR REPORTS 

+ 6 INHIBIT CONFIGURATION MAP 

4 5 LIMIT MAX ERRORS PER BANK 

e 4 FAT TERMINAL (132 COLUMNS OR BETTER) 
& 3 TEST MODE - SEE DOCUMENT 

4 2 TEST MODE - SEE 

* 1 TEST MODE - SEE DOCUMENT 

+ 0 DETECT SINGLE BIT ERRORS 
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1.0 GENERAL PROGRAM INFORMATION 


1.1 Program Purpose (Abstract) 
a. oe for use on all PDP-11/23/23B/73's which meet the conditions 
m 3.2.3. 


b. This program will be used by system managers and operators to 
determine the correct operation of main memory and also it will 
be primarily used by field service and manufacturing to isolate 
failures to the memory and to isolate failures within the memory 
to the correct card. 


c. The object of this software is to functionally test and verify 
all main memory functions as fast as possible. 


d. There is the capability of testing mixed configurations (MSV11-L, 
and MSV11-P) on the system. 


e. It has a special maintenance mode (Field Service Mode) to provide 
specific functional capabilities. 


1.2 System Requirements 
1.2.1 Hardware Requirements - 
PDP-11/23/23B/44/83/84 CPU with 18/22 bit addressing and at 
least 64K (16 Bit Words) of Memory and Memory Management. 
**eee% NOTE *eeee% 


1. Like memory types must be on 16K word boundaries 
starting at physical address 0. 


2. REFERENCE KTJ11 document for proper configuration 
of unibus memory for 11/84 


SEQ 0004 — 
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1.2.2 Software Requirements - 


This program is designed to run stand alone or under any of the 
following monitors: 


1.3 Related Documents And Standards 


uu +} WwW hf 


Microcomputers and Memories (EB-20912-20) 
PDP-11/23 User's Guide 

MSV1i1-J Users quide 

MSV11-L Users Guide 

MSV11-P Technical Manual 


1.4 Diagnostic Hierarchy Prerequisites 


If the program in any way misbehaves, then: 


1. 


oOo uw S& W fF 


Try it again with Cache off (reference Section 2.4.3.1) 
Inhibit relocation (reference section 2.4.1) 

Try CPU Diagnostics 

Try Memory Management Diagnostics 

Try Cache Diagnostics (where applicable) 

Try QBUS Map Diagnostics (where applicable) 


SEQ 0005 
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1.5 Assumptions 
This progrem age the correct operation of the CPU, Memory 


Managemen and the QBUS Map. This program occupies 
Cini ially) Sank O° (0-16K). The XXDP-+ Sondere are in bank 1. 


2.0 OPERATING INSTRUCTIONS 
2.1 Loading Starting Procedures 
2.1.1 Quick Starting - 


Load address 200 
Set switch register for options (normally 0) 
Start 


NOTE 
BE SURE that the peripheral page jumper (where applicable) 


is in place; failure to do so sends the diagnostic to 
Never-Never Land. 


2.1.2 Stopping - 
1. Set SW8, and/or 
2. Type control "C” (Reference section 2.4.4.1). 


2.1.3 Restarting (Preserve Configuration Table) - 
1. Load address 202 
2. Set switch register for options (Normally 0) 
3. Start 


—  —-_ mm wee - -— - ———— — 
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2.1.4 Switch Register Options - 


SWITCH 


OFPMNSUD~JI@wO 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT RELOCATION 
QUICK VERIFY 
BELL ON ERROR 
LOOP ON ERROR 
HALT PROGRAM Ny RESTORE LOADERS) 


LIMIT MAX ERRORS PER BANK 
FAT TERMINAL (132 COLUMNS OR BETTER) 
TEST MODE - SEE DOCUMENT 


S 
DETECT SINGLE BIT ERRORS 


SEQ 0007 _ 
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2.2 Default Test Sequence 


The following two lists give the test protocol for parity and ECC 
‘x" are not normally run except under ACT 


Memory. Tests marked with a 
a Field Service Command (Reference Section 


through 


or APT, or 
2.4.4.8). 


2.2.1 Test Protocol For MSV11-L/P Parity Memory - 


+ 


+e & & 


Test 
34 


Test Name 


Soft Error Test 

Initial Date Test 

Holding 1's and 0's Test 
Address Bit Test 

Address Test 

Complement Address Test 

3 XOR 9 Test 

Rotating 0's Test 
Rotating 1's Test 
Marching i's and O's Test 


Worst Case Noise Parity Test “ 


Refresh Test 

Shi fti Di al Test 
Random Date lest 

Fast Galloping Pattern Test 
Sob-a-long Test 

Write Recovery Test 

Branch Gobble Test 

Soft Error Test 


1 


——— —<—— = 


Time (sec/16K) 


SEQ 0008 
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2.2.2 Test Protocol for MSV11-J ECC Memeory 


Pattern Pattern Name 
5 Rotating 1's Test 
34 Soft Error Test 
6 Initial Data Test 
44 Shifting check bits thru the CSR 
14 Basic Double Bit Error test 
45 Syndromes in CSR on DBE test 
36 Correction code test 
20 syneeenee in CSR on SBE test 
37 Check ECC Disable Test 
4i Address to CSR on DBE test 
42 Extended address to CSR test 
43 a write test ' 
46 Check SBE with ECC Disable test 
47 No CSR update on SBE with DBE test 
10 Byte Address Test 
17 Holding i's and 0's Test 
7 Address Bit Test 
1 Address Test 
2 Complement Address Test 
4 Rotating 0's Test 
5 Rotating 1's Test 
21 Marching 0's and 1's Test 
* 22 Refresh Test 
26 Random Data Test 
* 24 Fast Galloping Pattern Test 
* 31 Sob-a-long Test 
x 32 Write Recovery Test 
x 33 Branch Gobble Test 
34 Soft Error Test 


@ - Run only on the first Pass when under ACT or APT 


At the end of each Pass the program will run cleanup Patterns 


#30, and #27 for all banks. 


a ” eee —i— 


Time (sec/16K) 


A A 


A A 


A AAA A 


A 
a eT et ee edd 


<1 


———— a oe 
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375 2.3 Special Environments 


377 2.3.1 XXDP+ 


379 The first pass will be a quick verify pass if and only if it is in 


380 chain mode. 


2.3.2 ACT APT Automatic Mode - 


386 The program will not create double bit errors (DBE's) after the ist 


387 pess. 


392 2.3.2.1 APT Execution Times - 


395 Here are some measured execution times for an 11/238 under APT 


399 1024K MSV11-J 
401 256K MSV11-L 
403 128K MSV11-P 


lst QV Pass 
30 min 
20 min 
20 min 


406 The first pass will be a quick verify pass 


NOTE 


2nd Pass onward 
30 min 
20 min 
20 min 


Even though the first pass is a QV pass 
it takes longer than the subsequent 
non-QV passes to the fact that it is 


running more patterns, some 


of which 


(patterns #24 and #33 for example) can 


be extrememly time consuming. 


SEQ 0010 


oo -- 
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2.3.2.2 APT Environment Table - 


The following table gives some of the standard settings for the APT 
E-Table. They may be modified as noted as the user sees fit. 


FIRST PASS RUN TIME: 

This paremeter should be set according to the amount and type of 
memory to be tested. The above table (APT Execution Times) gives some 
measured times. For any patterns deleted (through use of the Device 
Descriptor Words) reference section 2.2 for individual pattern times. 


NOTE 


The times given in section 2.2 are for 
16K chunks of memory, not 128K boards! 


LONGEST TEST TIME: 
This parameter should be set to the execution time of the longest 
aeoees: oars run. for the default case this is 35 seconds for 
attern ‘ 


ADDITIONAL RUN TIME: 
Not Used By Program. 


SOFTWARE ENVIRONMENT: 
For APT auto mode this parameter should be set to a "1". For 
dump mode set this to a "0". 


ENVIRONMENT MODE: 

When this parameter is set to a "0" the program does it's own 
sizing. If the users sets bit #7 however, he must specify the types 
and amounts of memory to be tested. 


SWITCH 1: 

The default setting of this switch is "101". APT uses this as 
the switch register for the program. Reference section 2.4.1 for more 
information on switch settings. 


SWITCH 2: : ; 

This switch, if set to any non-zero number, is used to limit the 
amount of passes APT will make. The program will hang after this 
count has been reached. 


CPU OPTIONS: 
Not Used By Program. 


MEMORY TYPE n (n=1 to 4) 
If bit #7 of ENVIRONMENT MODE is set these four words are used to 


log the different types of memory to be tested. If bit #7 is not set 
these location are not used. 


MAXIMUM ADDRESS n (n=1 to 4) 


These four words are used in conjuntion with the corresponding 


SEQ 0011 
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MAUNA 
eh 
ODVAOU SUPE 


520 


MEMORY TYPE words to indicate the highest address that memory type 
occupies. 


NOTE 
The above two parameters do not actually 
have to represent an accurate 


configuration of memory. All the 
program looks for is an accurate tally 
of memory amount! 


INTERRUPT VECTOR n (n=1 to 2) 
Not Used By Program. 


BUS PRIORITY n (n=1 to 2) 
Not Used By Program. 


BASE ADDRESS: 
Not Used By Program. 


DEVICE MAP: 
Not Used By Program. 


CONTROLLER DESCRIPTOR CODE n (n=1 to 2) 
Not Used By Program. 


DEVICE DESCRIPTOR CODES: 

The Device Descriptor codes are used by the program to determine 
which patterns it will run. The default values of these words are all 
"“1"'s, indicating that all of the patterns shown in section 2.2 are 
executed (save for exceptions as noted there). Each set of words 
controls a table in the program as follows: 


DD WORDS PROGRAM TABLE (Symbolic location) 

Words 0-1 MKCSRT 

Words 2-3 MKPAT 

Words 4-5 MJPAT 

Bit #0 set in the first word indicates that = first pattern in the 
table will be executed, bit #1 the second, bit #2 the third,... bit 


#0 of the second word indicates that the 17th entry in the table will 
be executed, and so on. 


- — 


SEQ 0012 
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2.3.3 No SBE Free Banks - 


If the program cannot find any SBE (Single Bit Error) free locations 
(in non-protected ECC panery? it will print out an error message and 
continue testing by-passing the ECC logic tests. 


2.3.4 Mixed Parity ECC Configurations - 


The program will function normally in mixed environments. The 
sequence of testing may seem strange due to the recursive test mode 
elgorithm (reference sections 2.4.1.1, 2.4.1.2, 2.4.1.3). 


SEQ 0013 
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2.4 Program Options 


2.4.1 Switch Register Details - 


If ea hardware switch register is not available then the software 
switch a is in location 176. IF under APT if BIT7 is set in 
the E-TABLE s lic location “$ENVM"” the APT software switch register 
will be used (location $SWREG). 


To change the software switch register contents: “2 “control G". 
This will cause display the current value of the and prompt for 
the octal input of the new SWR value from the terminal. This routine 
will ignore you (not respond to control "“G") if you have a hardware 
switch register. 


SWi5 = HALT ON ERROR 
(100000) 
Gert Fensing from this halt will first check for a chan 


in the software switch 5 5 geomet ("Control G" in the TIY 
input buffer) then it will continue testing. 


SW14 = LOOP ON TEST 
(40000) 
This will cause looping on the present test or pattern 
(back to last scope trap). f in a pattern then the 
looping will be for an entire bank of 16K addresses. 
SwW13 = INHIBIT ERROR TYPEOUTS 
(20000) 
This will cause returns from the error routine without 
the typed messages. Other on error functions are not 
affected. 
SW12 = INHIBIT RELOCATION 
(10000) 


This prevents the program from moving and consequent] 
prevents the program from testing at least 32K o 
memory . 


SW11 = QUICK VERIFY 
(4000) 


If this switch is selected approximately one 64th of 
the possible combinations of SBE’'s DBE’s are tested. 
Each pass complete typeout vt a ey this mode by 


preceding the pass number wit 


—— ee ee ee ee 
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SW10 = BELL ON ERROR 
(2000 ) | 
This causes a bell (or beep or click) on each error 
. trap 
SW9 = LOOP ON ERROR 
(1000) 
This will cause looping from failure point back to the 
last co” "ectly initialized area of the current test. 


SW8 = HALT PROGRAM 
(400) 


This initiates the following sequence: 

If program is relocated it moves back to bank zero. 
Flush out all possible DBE's. 

Turns off Memory Management. 

Restore loaders. 

Unmap the Unibus Map (Cif there is one). 

Halt if under APT or ACT branch sel. 


Co uw fF WwW fh 


SW7 = DETAILED Eh.20R REPORTS 
(200) 
After any normal error report is typed this option 
— the contents of the following registers to be 
ped: 
RO. Ri, R2, R3, R4, RS, SP, "CONTROL", “CPUERR” 
SW6 = INHIBIT CONFIGURATION MAP 
(100) 
This inhibits the printing of a ate showing the memory 
configuration - reference section 7.3 
SW5 = LIMIT MAX ERRORS PER BANK 
(40) 
This will limit the number of error typeouts per bank. 


The default is 10. DECIMAL, however this can be 
changed by changing location “ERRMAX” manually. 


—_—_—_—- <<. ee ee - = _ ——_—— = 


SEQ 0015 
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SW4 = FAT TERMINAL 
(20) 


This informs the program that the console terminal hes 
e width of at least 132 columns (LA36 with wide paper). 
SW3-1 = TEST MODE 


Test modes determine the recursion algorithm to be used 
during pattern tests. 


MODE NAME DESCRIPTION 


(0) 0 BAFPAF Banks forward, patterns forward 

(2) 1 BAFPAR Banks forward, patterns reverse 

(4) 2 BAWPAF Banks worst first, patterns forward. 

(6) 3 BAWPAR Banks worst first, patterns reverse. 

(10) 4 PAFBAF Patterns forward, banks forward 

(12) 5 PAFBAW Patterns forward, banks worst first 

(14) 6 PARBAF Patterns reverse, banks forward 

(16) 7 PARBAW Patterns reverse, banks worst first. 

Ag oere details reference section 2.4.1.1, 2.4.1.2 and 

SWO = satis |< umes BIT ERRORS (SBE's) 


For manufacturing purposes this switch should always be 
on. For field service purposes this switch ld 
always be off. 


This switch will allow all ECC Single Bit errors to be 

reported by disabling error correction. 

aeete printouts of SBE’s are not distinguishable from 
‘s. 


NOTE 
If Double Bit Errors are found in the memory, 


this switch should be set to make sure that new 
date can be written to the DBE locations. 


2.4.1.1 Test Mode Example - 


Ex le analysis of mode 5 "PAFBAW”. Assume Banks 0 1 are MSVil-J 
and Banks 2,3,4, 5 are MSVI1-L. 


*  —_——_—_— lt, er, i en 
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Assume also that Bank 3 is known bad by the program via _ the aouny 
routine or previous runs The testing sequence would be as follows 


;TEST MSV11-J MEMORY TYPES FIRST 
;TEST KNOWN BAD MEMORY (BANK 3) 


TEST 17, BANK 3 
TEST 7, BANK 3 
TEST 1, BANK 3 
TEST 2, BANK 3 
TEST 4, BANK 3 
TEST 5, BANK 3 
TEST 21, BANK 3 
TEST 20, BANK 3 
TEST 22, BANK 3 
TEST 26, BANK 3 


; TEST PRESUMED GOOD MEMORY (BANKS 2,4,5) 


TEST 17, BANK 2 
Test fy BANK 2 
TEST 1, BANK 2 
Tes! 2s BANK 2 
TEST 4, BANK 2 
TEST 5, BANK 2 
TEST 21, BANK 2 
TEST 20, BANK 2 
TEST 22, B 2 
TEST 26, BANK 2 
TEST 17, BANK 4 
Tes? 7, BANK 4 
TEST 1, BANK 4 
Tes! 2, BANK 4 
TEST 4, BANK 4 
Tes! 5, BANK 4 
TEST 21, BANK 4 
TEST 20, BANK 4 
TEST 22, BANK 4 
TEST 26, BANK 4 
TEST 17, BANK 5 
Test 1, BANK 5 
TES? 1, BANK 5 
TES? 2, BANK 5 
TEST 4, BANK 5 
TEST 5, BANK 5 
TEST 21, BANK 5 
TEST 20, BANK 5 
TEST 22, BANK 5 
TEST 26, BANK 5 


SEQ 0017 
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;RELOCATE TEST PROGRAM SPACE (BANK 0 € 1) 


Test i, BANK 0 
Teer) Re BANK 0 
.- BANK 0 
TEST 4, BANK 0 
TE ae BANK O 
TEST 26, BANK 0 
TEST i, BANK 1 
TEST 2, BANK 1 
TEST 3, BANK 1 
TEST 4, BANK 1 
Tae! oS BANK 1 
TEST 26, BANK 1 
NOTE 
This is an example not an actual 


sequence. 


The test sequence was forward (the simple patterns first, complex 
tests last) sequence of patterns (MSV11-L = 17, 7, 1, 2. 4, 5, 21, 
20, 22, 26)(MSV1i-J = 1, 2, 3, 4, 5, 26). 


If the bank selection is forward the banks will be tested in the 
following order: 


Be ca? names that are not protected or program space (from 0 to 


Parity banks that are not program space (from 0 to 167). 
The program now relocates tests: 


~ aaa that were protected or program space (from 0 to 


5. Parity banks that were program space (from 0 to 167). 


If bank selection is worst first the eet eretion table will be 
consulted and banks will be tested in the following order. 


1. ECC banks that are known bad and are not protected or program 
space (from 0 to 167). 


2. Parity banks that are known bad and are not program space 
(from 0 to 167). 


3. ECC banks that are presumed good and are not protected or 


SEQ 0018 
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program space (from 0 to 167). 


Parity banks that are presumed good and are not program space 
(from 0 to 167). 


The program now relocates tests: 


ECC banks that are known bag and were protected or program 
space (from 0 to 167). 


a banks that are known bad and were program space (from 
0 to 167). 

ECC banks that are presumed good and were protected or 
program space (from 0 to 167). 


Parity banks that are presumed good and were program space 
(from 0 to 167). 


2.4.1.2 Test Mode Details - 


MODE 0 


MODE 1 


MODE 2 


MODE 3 


= "BAFPAF" banks forward, patterns fo ward 
This is the default and simplest mode. 


This mode tests each bank completely from © to 167 
except those requiring relocation+. 


While pone each bank the patterns are run with the 
simple ones first building to the more complex. 


= “BAFPAR” = banks forward, patterns reverse 


This mode tests each bank completely from 0 to 167 
except those requiring relocations. 


While testing each bank the patterns are run with the 
most complex ones first, working to the simple ones. 


= “"BAWPAF” = Banks worst first, patterns forward 
This mode first tests each known bad bank completely 
from 0 to 167 except those requiring relocations, then 
presumed good banks ere tested from 0 to 167 except 
those requiring relocation*. 


While baat ing each bank the patterns are run with the 
simple ones first, building to the more complex. 


= "BAWPAR” = Banks worst first, patterns reverse 


This mode first tests each known bad bank completely 


SEQ 0019 


———E———nee ee ee 4 
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from 0 to 167 except those requiring relocation+, then 
presumed good banks are tested from 0 to 167 except 
those requiring relocations. 


While testing each bank the patterns are run with the 
most complex ones first, woking to the simple ones. 


"PAFBAF” = Patterns forward, banks forward 


This mode tests each pattern completely with the simple 
ones first, building to the more complex. 


While Sent ing each pattern the banks are run from 0 to 
167 except those requiring relocations. 


"PAFBAW” = Patterns forward, banks worst first 


This mode tests each pattern completely with the simple 
ones first, building to the more complex. 


While testing each pattern first each known bad bank 
from 0 to 167 except those requiring relocation* is 
run, then presumed good banks are run from 0 to 167 
except those requiring relocations. 


"PARBAF" = Patterns Reverse, Banks Forward 


This mode tests each pattern completely with the most 
complex ones first, working to the simple ones. 


While testing each pattern the banks are run from 0 to 
167 except those requiring relocations. 


“"PARBAW” = Patterns Reverse, Banks Worst First 


This mode tests each pattern completely with the most 
complex ones first, working to the simple ones. 


While geet ica each pattern first each known bad bank 
from 0 to 167 except those that require relocation# is 
run, then presumed good banks are run from 0 to 167 
except those requiring relocations. 


NOTE 


* Relocation is required to test the 
bank(s) in program space and also to 
test any ECC banks protected by 
diagnostic checkmode with the inhibit 
mode pointer off (zero)! 


SEQ 0020 
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2.4.1.3 Test Mode Applications - 


1. 


alter” correct operation of the memory system use Mode 0 


Advantages: Easy to understand. 


Disadvantages: In case of a failing Bank, it may take a long 
time to find the failure. 


To get detailed error information on — bad Banks (found 
by sizing routine) use Mode 2 “BAWPAF “ 


Advantages: Seeks Bad Banks. Easy to understand. 


F cedeentnges: Ds eaci other than zeros ones may take oa 
long time to fi 


To get error info on any memory problem fast use Mode 4 
"PARSE? . , 


Advantages: Covers all banks fast. Easy to understand. 


Disadvantages: Failures from only complex patterns may take 
a long time to find. 


To find any problem fast use Mode 7 "PARBAW”. 
Advantages: Covers all Banks fast. 


Disadvantages: Difficult to understand failures reported are 
not necessarily the most basic failure modes. 


SEQ 0021 
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2.4.2 Software Switch register - 


A softwere switch register exists in location 174. 
2.4.3 Special Memory Locations - 


2.4.3.1 CACHE Constant - 


The CACHE constant is located at symbolic location "CACHK” and is used 
to enable CACHE. 


NOTE 


Bit 0 in the CACHE constant hes no 
effect since it is unconditionally set 
by the fore whenever it tries to 
cuanae @ 


2.4.3.2 Configuration Table 


The configuration table is located at symbolic location “CONFIG” and 
has the following format: 


CONFIG: First 16K Configuration words (2 each) 
2nd 16K Configuration words (2 each) 


200th 16K configuration words (2 each) 


Configuration Words: 
LOW: BIT 0 ERRORS PRESENT 


1 
2 D 
BIT 5 SKIP ECC LOGIC TESTS Rae (1=SKIP) 
6 PROTECTED REGION OF AN ECC MEMORY 
BIT 7 nan tiae” (PROGRAM SPACE) 


C 
BIT 12-15 RESERVED 
MED : BIT 0-7 NUMBER dl ERRORS 


MEMORY TYPE 
BIT il CSR TESTED OK 
RESERVED 
BIT 13 “BACKGROUND PATTERN VALID” FLAG 
BIT 14 BANK SELECTED FOR TEST BY FIELD SERVICE MODE 
BIT 15 LOADERS HOME BANK 


This table is used as the source for the configuration 
Map (reference. section 7.3). 


SEQ 0022 
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2.4.4 Terminal Commands - 


2.4.4.1 Control "C" 
This command will: 


1. If Switch 8 (Halt Program) in the switch register is set halt 
the program. 


If Switch 8 is not set, unrelocate if program was relocated. 
Flush out any DBE’'s. 

Turn off Memory Management. 

HALT 


uw +S} WW ff 


This command will only be recognized at the completion of the current 
test or pattern, or at the end of a line of an error message. 


2.4.4.2 Control "K"” (Kill error printout and skip pattern) 


This command will allow you to stop an arrer printout and skip to the 
next pattern. This is handy, for example, when you have a le bank 
full of errors, have gotten enough information, and wish to skip to 
the next pattern. 


2.4.4.3 Control "T" (Tell me what's happening) 


This command will print out the information encoded in the display 
register. This is mainly intended for CPU's without e hardware 
display register. 


Example: 


BANK = 17 TEST = 46 
RELOCATED BANK= 0 PAT= 26 


By use of Field Service Command 17 "Trace" can be set so that it will 
automatically type out the bank and pattern number~ as each pattern is 
run. (Reference section 2.4.4.8.18). 


SEQ 0023 


ete 


_— ee 
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2.4.4.4 Control "SS" (Stop) 
This command will stop typeout (soon) and will wait for a Control “Q”. 


2.4.4.5 Control "Q" (Quintinue) 


This command will continue typing that has been stopped by Control 
"3". Vad there has been no Control "S” typed then this command is 
ignored. 


2.4.4.6 Control "F" (Field Service mode) 


This command will cause you to enter a mode which looks for sub 
commands. 


When the program is looking for a sub command any number that is not a 


legal command will cause a mini help oy = to be typed. Therefore 
when in doubt type 99 (CR) and you will get help. 


NOTE 


Typing just carriage return is a default 
command 0. 


2.4.4.7.1 Field Service Command 0 (Exit) 


This command will exit Field Services Mode and return to whatever task 
it wes in prior to typing control "F". Note typing just carriage 
return is a default Command 0. 


SEQ 0024 
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2.4.4.7.2 Field Service Command 1 (Read CSR) 
This command will typeout the contents of the CSR. 
If there is more than one CSR on the CPU (or if the prosres has not 
determined the CSR status yet), it will Ask you “WHICH CSR(O-F)” to 
which you must respond with an Hexidecimal number from 0 to F. Note 
typing just cerriage return is a default 0. 
If the CSR yoy select causes a trap to 4 the program will type “THIS 
CSR DOES NOT EXIST”. 

NOTE 


CSR references are done in accordance 
with section 5.0 


2.4.4.7.3 Field Service Command 2 (Load CSR) 

This command will enable you to load the CSR. 

If there is more than one CSR on the CPU (Cor if the proaras has not 
yet determined the CSR stetus yet) it will ask you “WHICH CSR(0-F)” to 
which you must respond with an Hexidecimal number from 0 to F. Note 
typing just cerriege return is a default 0. 


If the CSR you select causes a trap to 4 the program will type “THIS 
CSR DOES NOT EXIST”. 


The CSR will be read and displayed as in command 1. 

The program will then ask you for the "CSR?" to which you must respond 
with an Octal number. Note typing just carriage return is a default 
0. 


The program will then load the CSR and Read it again displaying its 
new contents. 


SEQ 0025 
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2.4.4.7.4 Field Service Command 3 (Examine Memory) 


This command will ellow you to examine any physical address and does 
the necessary memory renagement mapping for you. 


The program will ask you for the “PHYSICAL ADDRESS (0-17757776)”" to 
which you must respond with an Octal number. 


If the address access causes oe trap to 4 the program will 1 
"TIMEOUT TRAP”. If the address access causes ae trap to 114 
program will type “PARITY ABORT”. 


The coxtents of your physicel address will be typed. 


2.4.4.7 5 Field Service Command 4 (Modify Memory) 


This command allows you to modify ~ physicel address and does the 
necessary memory management mapping for you. 


The program will ask you for the “PHYSICAL ADDRESS (0-17757776)" to 
which you must respond with an Octal number. 


If the address access causes a trap to 4 the program will yo 
"TIMEOUT TRAP”. If the address access causes a trap to 114 
program will type “PARITY ASORT”. 


The program will type “OLD DATA WAS” and the contents of your physical 
eddress. 


The program will then type "INPUT NEW DATA” to which you must respond 
i = Octal number. Note typing just carriage recurs is a default 


The program will attempt to write this new data into your eye ‘eat 
address after which it will read it again and type "DATA IS " and 
the’ new contents of your physicel address. 


NOTE | 
If you can't change the data, that would 


ind\cate that you have a Double Bit 
Error in that double word pair. 


SEQ 0026 
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2.4.4.7.6 Field Service Command 5 (Select Bank Test) 
This command allows you to run any bank with any pattern forever. 


The progrem will ask you “BANK(O-177)" to which Red must respond with 
en Octel number f the bank is not accessi The program will 
type “BANK NOT ACCESSIBLE" and ask question over. 


The program will then ask "TEST (0-47)" to which you must respond 
with an Octal number. 


NOTE 


Any pattern can be run including those 
that ere not part of the APT E-TABLE 
ge counprenes section 6.2.1). If 

select Pattern 0, — + rem will 
a "TEST O DATA IS?” you 
must respond with an Octal sane. 


If the 8 oe ey selected requires relocation the program will type 
"BANK REQUIRES RELOCATION” and exit this command. Note normally this 
is true for Bank 0. 


The progr will then arm i console keyboard for interrupts and type 
"TO ESC PE. TYPE ANY KEY!” 


The test pattern will be entered and run until a console key is 
depressed to escape this loop. 


2.4.4.7.7 Field Service Command 6 (Type Configuration Map) 
This command types the configuration map. 


This is useful after a long run (overnight) to see all the banks that 
are marked as bad. (Eepec tally if your console is a video terminal). 


For a detailed explanation of the map reference section 7.3. 


— — ee ee oe ae a 


- ————— ae me 
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2.4.4.7.8 Field Service Command 7 (SOB-A-LONG TEST) 


This command allows execution of the SOB-A-LONG Test on all 
non-protected Banks reference Section 6.2.2.26. Operation is 
identical to command 5 except that no Pattern or Bank is entered and 
each pass causes a Bell. 


2.4.4.7.9 Field Service Command 8 (Error Summary) 


This command types out the number of passes and the total number of 
errors. If there were any errors it will type out the Banks and the 
number of errors per bank up to 255 DECIMAL. 


This becomes useful after long runs (all night) on systems with a 
video console terminal. 


2.4.4.7.10 Field Service Command 9 (Refresh TEST) 


This command allows execution of the Refresh Test on all non-protected 
Banks reference Section 6.2.2.19. Operation is identical to command 5 
except that no Pattern or Bank is entered and each pass causes a Bell. 


2.4.4.7.11 Field Service Command 10 (Set Fill Count) 


This command allows setting of the terminal fill count Lnneennery for 
LA30’s, ASR33's, and VTO5’s). It is normally set to zero for LA36‘s, 
VT52's, VT100's, etc. 


2.4.4.7.12 Field Service Command 11 (Enter Kamikaze Mode) 


This command ellows you to run patterns that are normally not executed 
unless under APT or ACT. They are usually very time consuming and can 
result in failures that are fatal to the program. In effect you are 
st Bags to find a hardwere failure regardless of the consequences. 
Note that most crashes do not wipe out the display information which 
is telling you what. the program was doing — prior to failure. 
There are two ways to die here - Impatience and Crashes. 


SEQ 0028 
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2.4.4.7.13 Field Service Command 12 (Exit Kamikaze Mode) 
Return to the default mode of testing (undo Command 12). 


2.4.4.7.14 Field Service Command 13 (Turn Cache Off) 


ae ene the Cache constant to bypass cache (reference section 


2.4.4.8.15 Field Service Command 14 (Turn Cache On) 


a a> aa the Cache constant to use cache (reference section 


2.4.4.7.16 Field Service Command 15 (Test Only Selected Banks) 
This command allows you to center the test effort on only those banks 


that you are troubleshooting. You may also test banks that require 
relocation and were inaccessable via command 5. 


2.4.4.7.17 Field Service Command 16 (Resume Testing All Banks) 
Return to the default mode of testing (undo Command 15). 


2.4.4.7.18 Field Service Command 17 (Resume Testing All Banks) 


Enable “Trace”. After exiting field service mode, the program will 
type out the bank and pattern numbers as each pattern is run. 


2.4.4.7.19 Field Service Command 18 (Resume Testing All Banks) 
Disable “Trace”. (undo Command 17). 


SEQ 0029 
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2.5 Execution Times 
2.5.1 Typical (System) - 


Execution time depends aia variables; 


measured times on an 11/23B: 


K words of MSV11-J a 


Normal Pass Min ec 
Quick Verify Min Sec 
Kamikaze Mode Min Sec 
Kamikaze QV Min Sec 
K words of MSV11-L Memory 
Normal Pass Min Sec 
Quick Verify Min Sec 
Kamikaze Mode Min Sec 
Kamikaze QV Min Sec 
K words of MSV1i1-P Memory 
Normal Pass Min Sec 
Quick Verify Min Sec 
Kamikaze Mode Min Sec 
Kamikaze QV Min Sec 


2.5.2 Calculations (System) 


Normal Pass 
Add 


Sec per 16K BANK of 
Add Sec per 16K BANK of 
Add Sec per 64K BANK of 
Quick Verify Pass 
Add Sec per 16K BANK of 
Add Sec per 16K BANK of 
Add Sec per 64K BANK of 


Kamikaze Mode 
Add 10 min. per 128K words for 


MSV11-P 
MSV11-L 
MSV11-J 


MSV11-P 
MSV11-L 
MSV11-J 


approximate pass times. 


however here are 


SEQ 0030 
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SEQ 0031 
1441 
1442 
1443 
1444 | 
1445 
1446 
1447 2.5.3 Typical (Tests) 
1448 
1449 Test Time Description 
0 
1451 
1452 MTOOOO ;<1i SEC DATA PATTERN TEST 
1453 MTOOO1 ;<i SEC ADDRESS TEST 
1454 MTOO002 ;<1i SEC COMPLEMENT ADDRESS TEST 
1455 MTOOO3 ; 1 SEC 3 XOR 9 WORST a 2 NOISE TEST 
1456 MTOOO04 ; 1 SEC ROTATING ne EST 
1457 MTOOOS ; i SEC ROTATING ONES TEST 
1458 MTOOO06 ;<1 SEC INITIAL DATA TEST 
1459 MTOO0O07 ;<1 SEC ADDRESS BIT TEST 
1460 MTOO10 ;<i SEC BYTE ADDRESSING TEST 
1461 MT0014 ; 1 SEC BASIC DOUBLE BIT ERROR TEST 
1462 MT0017 ;<1 SEC HOLDING 1'S 0'S TEST 
1463 MT0020 ; 1 SEC SYNDROMES TO CSR ON SINGLE BIT ERROR TEST 
1464 MTOO21 ; 1 SEC MARCHING 0‘'S 1'‘S TEST 
1465 MTOO022 ;10 SEC REFRESH TEST 
1466 MT0023 ;10 SEC SHIFTING DIAGONAL TEST 
1467 MT0024 ;20 SEC FAST et Agee PATTERN TEST 
1468 MT0026 ;<1 SEC RANDOM DAT D aaa 
1469 MT0027 ; 1 SEC UNIQUE BANK TEST 
1470 MTOO ; 1 SEC FLUSH OUT DBE’S TEST 
1471 MTOO31 ; 3 SEC SOB-A-LONG TEST 
1472 MTOO032 ;<1 SEC WRITE RECOVERY TEST 
1473 MT0033 ;35 SEC BRANCH GOBBLE TEST 
1474 MT0034_ ;<1 SEC SOFT ERROR TEST 
1475 MTCO35 =;<1 SEC WORST CASE PARITY TEST 
1476 MTOO36 ; 1 SEC CORRECTION CODE TEST 
1477 MTO0037 ;<1i SEC CHECK ECC DISABLE TEST 
1478 MT0041 ; 1 SEC ADDRESS TO CSR ON DBC TEST 
1479 MT0042 ;<1 SEC EXTENDED ADDRESS TO CSR ON ERROR TEST 
1480 MT0043 ;<1 SEC WRITE BYTE TEST 
1481 MT0044 ; 5 SEC SHIFTING CHECKBITS THROUGH CSR TEST 
1482 MT0045 ;<1 SEC SYNDROME BITS TO THE CSR ON A DBE TEST 
1483 MT0046 ; 1 SEC CHECK SINGLE BIT ERRORS WITH ECC DISABLED TEST 
1484 MTO0047 ;<1 SEC NO CSR UPDATE WITH EXISTING DBE TEST 
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3.0 ERROR INFORMATION 
3.1 Error Reporting 


Most errors are reported using ~ Bid trap and hendler provided ay 
SYSMAC.SML. Most errors will be the “MEMORY DATA ERROR” = whic 
will be described here. MEMORY paTA ERRORS will also cause e bank 
to be marked as Bad in the configuration table. 


Other errors are best explained by referencing the specific typeout 
and if necessary the program listing. 


MEMORY DA DATA ERROR 

PC BANK VADD PADD GOOD BAD XOR CSR MTYP PAT 
022132 37 060006 03700006 000000 000100 000100 0 €E 06 
022132 37 060006 03700006 000000 000100 000100 
022132 37 060006 03700006 000000 000100 000100 0 €E 06 
022132 37 060006 03700006 000000 000100 000100 0 € 06 


While testing Bank 37 at virtual address 60006 (virtual addresses are 

always between 60000 and 157776 for meaning eurpeees?. physical 
address 3700006 (that’s Bank 37 gh hin the Bank) with 

Pattern 6 (Initial Data Test), the good data - ae was 0 but the 

4 setae read (BAD) was ee _ exclusive OR Good Bad 

ylet which indicates failing bit(s) (Bit 6). It is an 
gvil- J (ECC) Memory. The CSR ~~ ps at 172000. 


RERORY Dh DATA ERROR 

BANK VADD PADD GOOD BAD XOR CSR MTYP PAT 
022132 35 060000 03500000 000000 000001 900001 0 €E 06 
022132 35 060002 03500002 900000 000100 000100 0 €E 06 
022132 35 060006 03500006 000000 000100 000100 0 €E 06 


While testing Bank 35, virtual address 60000, physical address 3500000 
with Pattern 6 (Initial Date Test), the good data expected was 0 but 
the date actually read (BAD) wes 1, the exclusive OR Bad 


at Good 
ields 1 which indicates onl failing bit(s) (Bit 0). It is an MSV11-J 


ECC) Memory and the CSR is located at 172000. 


NOTE 


Subsequent errors of the same test do 
not type a new heading. 


SEQ 0032 


a 
—_——— 
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3.2 Error Abbreviations 


The following is a list of all abbreviations used in error reports. 


# OF ERRORS 
1ST ADD 


ARRAY 


Number of Errors that were detected. 

First Address that failed. 

The array number that was locked up in the MS11-M CSR. 
The # of CPU's APT expects on the system. 

APT Core size. 

APT MOS size. 

Bad date. 

Bad Word #1 of a double word data value. 

Bad Word #2 of a double word data value. 

Bad Check Code Bits. 

The Bank number. Banks are 16K words long. 

Bad Check Code Bits. 

The 7 bit value of the Check Code Bits. 

The CACHE Control register. 

CPU Error register. 

Control and Status Register. 

CSR NUMBER (0-F Hexidecimal). 

The CACHE Data Register. 

Double Bit Error (Cuncorrectable error). 

Device Address. 

Error Correctable Code. 

Good Check Code Bits. 

Good Check Code Bits. 

Good Word #1 of a double word data value. 

Good Word #2 of a double word data value. 

Good data. 

MSV11-J Size. 

Memory Error register. 

Memory Management Register #0. 

Memory Management Register #1. 

Memory Management Register #2. 

Memory Management Register #3. 

Memory Type (MSV11-J,MSV11-L, or MSV11-P). 

Physical Address (asserted by the program after mapping). 
Pattern number. 

Program Counter at the time the error occurred. 

Single Bit Error (correctable error). 

Virtual Address (asserted by the program before mapping). 
The date that was written into the ist half of a double word. 
The data that was written into the 2nd half of a double word. 
Exclusive OR of the good and bad data. Shows the bad bits. 
Address under test 


SEQ 0033 
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1584 

1585 

+3et 3.3 Error Halts 

‘aes There are several Helts in the program. 

T+ All unused trap vectors contain a trap catcher (.WORD .+2,HALT). 

tae8 An undefined TRAP instruction halts at symbolic location "“$HALT2”. 
Et The APT down load sequence will halt at symbolic location "APTHLT”. 
ta Halt on Error option (SW15 Set) at symbolic location "“$HALT”. 

‘aes Halt program (SWB Set) at symbolic location "$EXHALT”. 

1600 Power Fail will neraeiiy helt at the end of the shut down sequence 
feet (symbolic location “$DOWN"). 

1603 Power Fail has a fatal Halt at symbolic location "$ILLUP” which can be 
1604 caused by power up occurring before power down sequence completed or 
aoe by power down before a power up sequence is completed. 

1607 


— am Me Almansa el ie ae a ”_——_— —_— . ee ro Ce - _— 
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CVMJAAO MSV11-J MEMORY DIAG. MACRO VO5.01b Friday 15-Feb-85 16:10 Page 36 : 
| SEQ 0035 © 


1612 4.0 PROGRESS REPORTS 
1614 Pass complete typeouts as follows: 


1616 END PASS a 0 
1617 END PASS # 1 
1618 END PASS #QV 2 


1622 NOTE 


1624 Pass 2 was flagged as a Quick Verify 
1625 Pass. (Because of a change in ) 


1631 To obtain progress reports while <-* typing a Control "T” will 
1836 in ae _ information encoded in the leolay register. 
xample: 


1635 BANK= 2 TEST= 34 


36 
eH Reference Section 2.4.4.7.18 for more information on Tracing. 


0 5.0 CSR INFORMATION TABLES 


1643 he Sensaetne os @ picture view of the current control status 
1644 registers ich can be tested by this program. It shows bit 
assignments and definitions to provide e handy reference, and 
1646 shows the similarities and differences between each one: 


9 NOTE 
1651 All unused bits in each CSR are equal to zero. 


Ee a om 
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5.1 MSVii-J CSR 


oe a. a ee ee ee 
[Ei SEAL 3 ADDRESS 'SE!IP!DC!EC!EE! 
Ser ecaraktei te FT Eee 


a ae a . B22 e I 
SDELEAISI: 3 CHECK BITS 1SE?IP DC EC SEE! 
» = # €4 Fe ea kt ee oe 


a ee oe Se ae ae I I 
!‘DE'EA!SI! ! SYNDROMES !SE!IP!DC!EC!EE! 
ee I I I 


iS 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


Bit assignments ere defined 
es follows: 


BIT15 UNCORRECTABLE ERROR 

On a read to memory (ECC Disable 
Bit = 0), this bit is set if 

a double error occurs. 
error address is stored in the 
CSR. Setting this bit also 

turns on ae red LED at the rear of 
the card for a visual indication. 
This bit is also set in ECC 
Disable Mode if a SERR or DERR 


occurs. 


BIT14 EUB ERROR ADDRESS 

With Bit 14 = 1, a read to the CSR 
will fetch address A2l 

through Als. 


register. 


When Bit 14 = 1, 
ist de date may not be 
loaded into the syndrome 


SEQ 0036 
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BIT13 SET INHISIT MODE 
When this bit is set to 

eae 1", it enables the inhibit 
a pointer to inhibit 
either the first or second 
16K from ever geing into the 
Diag Check or ECC Disable 


SEQ 0037 — 


BITSOS-10 CHECK BIT oa (CSR II) 


Check Bit Stor (Di 
Bit 2 = 1) ~~ 
When in the diagnostic check 


mode these bits are used to store 


the check bits to be written 
into memory or the check bits 
read from memory. If a double 
error or single error occurs 
when in the diagnostic check 
mode and ECC disable Bit 1 = 0, 
then the check bits are stored 
in the CSR together with 

the double or single error 

bit. These bits are writeable 
in diagnostic mode. A " 

is stored in Bit 11 if CSR 

02, CSR 13, and CSR 14 are 

set to indicate that the 
memory under test is a MSV11-J. 


BITSOS-11 QBUS ce ie (CSR I) 


(Diag Ck Bits 2 = O, 
Disable Bit 1 = 0) 


If a double or single error 
occurs on ea Read , ce. then 
address Bits All t 

Ai7 are stored in these ry 
These bits are read only 

the condition that SERR” (ESR 4) 
or DERR (CSR 15) is set but 

CSR 14 is not set. 


EQB Address Storage (Di o 
Bit 2 = 0), ECC Disable 
1 = 0 or 1). 


If a double or single error 
occurs on a Read cycle, 
address Bits Al7 t 

All are stored in CSR 

11 through 5 and address 
Bits A21 through Als are 


——_— a> een 


itil 
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stored in ea backup register. 
The EQB Error Address 
Retrieval Bit (CSR 14) is 
used to obtein the totel 
error address ss follows: 


With CSR Bit 14 = 0 eo read to 
the CSR will eters Ail? 
through a from CSR Bits 11 
through 5 


CSR Bit 14 can then be set 
to ea "1" and oe read to the 
CSR will then read A21_ 


Bits 11 through 9. 


Address Bits A21 through 
All ere obtained 

to locate the double 
error to e 1K segment of 
memory . 


The EQB address A2i 
through A18 is read only 
whenever CSR 14 = 1. 


BITOS-10 SYNDROME STORAGE (CSR III) 
If ea double or single error 

occurs on a read or write 

byte cycle, and if CSR bit 

2 is a? to a "0" A 

Bits X 0, 1, 2, 4 and 8 

and stored in CSR bits 5 

through 10. To read the 

syndrome bits from CSR, Bit 

you must read the error 


the CSR must be st to 
a "1" (diagnostic mode) and 
the CSR read in. This o operat on 
will allow syndrome bit 
for a single or a 
failure to be reed instead 
of the address bits normally 
read when CSR 02 is set to “0”. 


BITO4 SINGLE ERROR 

If on a read to memory a 
SBE occurs, the error 
address AZi-Ali and | 
the error syrdromes will 


——— eee 8 


- — — hl —— a ti 


N3 
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| 
| 
SE | 
sal , | Q 0039 : 
1827 be logged in CSR Bits 5-11 
1828 | unless the uncorrectable error 
1823 CSR 15 is set. The error | 
1930 address will be 1 | 
1931 unconditionally in the ECC 
183 Disable Mode. This bit is not 
1834 oat bog map at ag pa | 
= 1) is se iagnostic 
1836 Mode (Bit 02 = 1) is set. | 
1837 BITOS INHIBIT MODE POINTER | 
1839 This bit works in conjunction 
1840 with the Set Inhibit 
1880 (Bit 13). When Bit 13 is set 
1881 to a 1, @ 16K portion of 
1843 memory is inhibited from 
188; operating in the ECC Disable 
1845 Mode or Diagnostic Check Mode. 
1986 The Inhibit Mode Pointer 
184? indicates which 16K is being 
1849 inhibited, i.e., Bit 3 = 0 
188? the first 16K of memory is 
1990 inhibited, Bit 3 = 1, the 
13) second 16K of memory is 
1836 inhibited. 
1854 i i 
1838 With Bit 13 set to a 0, Bit 
18 3 becomes inoperative. 
1887 ;, : : , , 
1837 eg f in con tion with 
1858 Bit 15, therefore allows e 16K 
: chunk of memory to alweys have 
1866 ECC coverage. The systems 
1863 diagnostic can therefore 
186¢ ite pO ge protected 
1865 or tiOM OF memory and can 
1864 disable ECC and/or run the 
1865 Stagmaat is Check Mode in the 
1866 rest of memory without itself 
1867 becoming vulnerable to single 
1968 errors. This bit is e Read/Write 
1870 bit reset by power up end BUS 
1870 INIT. 
187 i 
187 BITO2 Diagnostic Check Mode 
1873 This mode esllows a means of 
1878 forcing a single or double 
1875 error in a desired location. 
1876 It also provides e means of 
examining the check bits and 


7 
aos the syndrome in ae given 
location. 

| 

' 


} 
| B4 
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1881 

1882 : The check bits desired for ea 

1883 given date pattern are written 

1884 into Bits 5 through 11 of 

1885 the CSR. A word or write byte 

1886 memory will write the check bits 

1887 from the CSR to the MOS erre 

1886 (CSR 2 = 1) instead of the check 

1869 bits generated on the data 

1890 to be written. Single errors 

1891 on the read portion of the DATOB 

tH | cycle are corrected. 

1894 A read to the memory will 

1895 read the check bits stored in 

1896 eomtry one clock them into 

1897 | the CSR. 

1698 

1899 If a double error or single 

1900 error occurs the DERR or 

1901 SERR bit in the CSR is set 

1902 and the error syndrome bits 

1903 read from ECC are stored in 

1904 CSR Bits 10-5 as well as the 

1905 address bits. In Diagnostic 

1906 Check Mode the error syndrome 

1907 bits will be read when CSR 

1208 Bits 10-5 are read. 

ieit ere hy Read/Write bit 
end is reset on power up and 

1912 BUS INIT. 

1913 

1914 

1915 BITO1 DISABLE CORRECTION MODE 

1916 If this bit is set, no single 

1917 errors will be corrected. A 

1918 single error will set CSR 4 

1919 end CSR 15 or a double error 

1920 | will set CSR 15 and assert 

1921 BUS PBL if CSR 00 is asserted. 

1922 The 1K block of address where 

1923 the error occurs will also 

1924 be stored in the CSR. The 

1925 priority of a SERR and DERR 

1926 . will be the same, i.e., the 

1927 last error information will 

1928 always be stored unless a DERR 

1929 precedes a SERR. If a double 

1930 error occurs during a write byte 

1931 cyese. the write portion of 

19 the cycle will not be aborted. 


32 
1933 The check bits written will 


— — 
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have been generated on the 

date written. This means that 
if a single or double error 
existed in the location accessed, 
it would be cleared (unless the 
errors were herd). 


This bit is @ diagnostic aid 
to allow writing and reading 
data from memory without 
interference from the error 
correction logic. 


BITOO UNCORRECTABLE ERROR 
INDICATION ENABLE 

If a double error occurs with 
ECC enabled or a single error 

or double error with ECC 
disabled, on a Read cycle to the 
memory and this bit is set, 

then BUS PBL will be asserted. 


SEQ 0041 


2 


I 


aa @ oe a a a a ee we 


D4 
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1960 5.2 MSV11-L/P CSR 

| 1961 
1962 
pS) re 
1964 7. > & 2 [ns £2 £2 FE Se 
1965 'PE'EU! ! ! ADDRESS ' § SWPP! AE! 
sae I a. 2 2 I i a ee a ek SS ee 
ieee 15 14 13 12 11 10 09 08 07 06 05 04 03 O02 O1 OO 
dh Bit assignments are defined as follows: 
O78 BIT15 PARITY ERROR 
1974 BIT14 EQB ERROR 
1975 a -. the 
1976 memory an 
1977 Extended ‘QBUS. when 
1978 BIT14 is zero, the low 
1979 order failing 
1980 addresses are 
1981 available (Bits 
1982 11-17); when BIT14 is 
1983 one, the high order 
1984 failing addresses are 
1985 available (Bits - = 
1986 of address). f 
1987 ery is on ea aBus: 
1988 . disables this 
1989 bit so that it is read 
1990 only, and equal to ze- 
1991 ro. 
1992 
1993 BITS 11-5 ERROR 
1994 ADDRESS With BIT14 
1995 set, they contain the 
1996 high order ory er- 
1997 ror address Bits 
1998 21-18 of address); 
1999 with BIT14 # £4cleared, 
2000 they contein the low 
2001 order parity error ad- 
2002 dress (Bits 17-11 of 
2003 address). 
2004 
2005 BITO2 #£=WRITE WRONG 
2006 PARITY Normal parity 
2007 (odd) when clear; 
2008 other parity (even) 
2009 when set. 
2010 
2011 BITOO ACTION ENABLE No 
2012 action when clear; 
2013 trap to vector 114 


when set. 


SEQ 0042 


EE OE 


se -_ 
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6.0 SUB-TEST SUMMARIES 
6.1 Tests 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


1 


BIT TEST OF ALL CSR'S/MATCH ALL CSR'S WITH MEMORY 
(CSR Access mey cause wrong Type of Traps) 


2 


TEST BANK O ACCESSES 
Failures are fatal. 


3 

TEST BANKS 1-177 COCTAL) FOR ZEROS AND ONES 
Errors are not typed here - only logged in 
the configuration table 

4 

ECC INHIBIT MODE POINTER TEST 

5 

DIAGNOSTIC MODE DISPATCH ROUTINE 

This test runs all the patterns in the 
mode selected. 

6 


UNIQUE BANK TEST 
Pattern 27 is run 


SEQ 0043 


eee 
TT TEE EE TTT LT 


etn Mh ae Ae a ae a SS TT te ~- —_- -—— - 
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LL LL A LO 


LLL LLL LL LLL LLL LO LE 
A A 


SEQ 0044 
2063 
2064 
2065 
2066 
2067 
2068 6.2 Tests 
2069 
core 6.2.1 General Test Information 
2072 ges Tests are identified by symbolic locations “MTPXYY” where 
2073 may - sub program indicator (A,B,C,etc) or 0 and YY will be "iin 
sore number P of the test. 
2076 Setup procedures for each test are identified by symbolic locations 
sore "MTOOY where YY will be the vantber of the test. 
2079 Tests reside in 4 scripts that are scanned for execution. Symbol ic 
2080 location “"MKCSRT” is a table of tests that can run once for each 
2081 ECC bank. Symbolic location "MKPAT” is a table of tests thet 
2082 can run on each Bank of ECC memor 
2083 Symbolic sgout ion "MJPAT” is a table of tests that can run on each 
2084 Bank of er. memory. Symbolic location “FSPAT” is a table of 
soae tests that can run in Field Service Mode (command 5). 
2087 The ist 3 scripts are sompaytety cratresies by the APT E-table (even 
2088 if not running under A ifications to this table can be made 
een (1) with APT, or (2) manually. 
cas Example E-table Segment: 
2093 ; THE FOLLOWING LOCATIONS SPECIFY WHICH TESTS 
ane ;ARE TO BE RUN FOR PARTICULAR MEMORIES 
2096 ;REFERENCE THE TABLE LISTED BELOW TO RELATE BITS TO TESTS. 
2097 ;BITO SET WILL RUN THE FIRST ENTRY IN THE TABLE, BITO SET 
aoe ;IN THE SECOND WORD WILL RUN THE 17TH ENTRY IN THE TABLE.. 
2100  NOTE#*NULL TESTS DO NOT TAKE ANY TIME 
2101 ; RECOMMENDED VALUE 
2102 $DDWO: . WORD 177777 ;ECC CSR TESTS 177777 TABLE = MKCSRT: 
2103 $DDW1: . WORD 177777 ;ECC CSR TESTS 177777 TABLE = MKCSRT: 
2104 $DDW2: . WORD 177777 sECC TESTS 103777 TABLE = MKPAT: 
2105 $DDW3: . WORD 177777 ;ECC TESTS 177777 TABLE = MKPAT: 
2106 $DDW4; . WORD 177777 ;PARITY TESTS 003777 TABLE = MJPAT: 
2107 $DDWS: . WORD 177777 ;PARITY TESTS 177774 TABLE = MJUPAT: 


ee ee _— =< 


—_— — a tL ee ——_—— ee ee eH ee 


G4 
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| 
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6.2.2 Specific Tests 


6.2.2.1 Test 0 Basic Data Test 
Writes Reads R2 into a 16K Bank. 


This is used for Zeros and Ones testing and in Field Service Mode for 
any console selected Test. 


It can execute out of the USER Instruction PAR's. 


NOTE 


It is frequently modified dynamically 
such that (1) it returns after writing 
enty tthe ist NOP is replaced with a 
RETURN) or (2) it only counts Errors 
(the code PERRO2 and NOP are replaced 
with INC @#PATERR). 


SEQ 0045 


OE A Se 


— ———— ae a i ll, a te a 


nae e-em ——_——<— = 
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6.2.2.2 Test 1 Address Test 


Writes Reads an incrementing pattern equivalent to 
addressed into a 16K Bank. 


It can execute out of the USER Instruction PAR's. 


physical 


SEQ 0046 


EE LL A LLL, ‘ 


mm i me _—_ -- = 


14 
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6.2.2.3 Test 2 Complement Address Test 


Writes the complement of the physical address from high addresses to 
low (write down) and reads from low addresses to high (read up). 


This provides the complement of the coverage of Test 1 in both date 
pattern and addressing sequence. 


It can execute out of the USER Instruction PAR's. 


SEQ 0047 
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6.2.2.4 Test 3 3 XOR 9 


Writes Reads a Test that complements as address bits 3 and 9 
change. 


This test is — 4 times (1) with Zeros Ones, (2) with Ones 
Zeros, (3) with 401 Ones, and (4) with Ones 401. The test of 
the 401 is to force a the parity bits to become involved. 


It can execute out of the USER Data PDR's, the User Instruction PAR’s, 
the Kernel Data PAR's and the Supervisor Data PAR's. 


SEQ 0048 - 
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TT ee 


6.2.2.5 Test 4 


Writes a background pattern of Ones. 


K4 
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Roteting Zeros Test 


ee ee . - - ~«- —— ° 


Rotates a Zero Carry Bit left 


thru each par of bytes (18 times) and then checks that the carry is 


Zero and the word (2 


ytes) is still all Ones. 


It can execute out of the User Data PAR's and the Kernel Deta PAR's. 


It is not uncommon to observe the geod 
a equal to the bad data. his 
indicates that the carry was not clear 
efter 18 ROLB’s. 


SEQ 0049 — 


A 
TT 
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6.2.2.6 Test 5 
Writes a background pattern of Zeros. Rotates a One carry bit left 
thru each pair of bytes (18 times) and then checks that the Carry is a 
One and the Word (2 Bytes) is still all Zeros. 

This provides the complement of the coverage of Test 4 in data. 


It can execute out of the User Date PAR’s and the Kernel Data PAR’s. 


Rotating Ones Test 


NOTE 
It is not uncommon to observe the 


data equal the bad date. This indicates 
ines the Carry was not set after 18 
's. 


——_—_ ee 


_— ee ee 


SEQ 0050 


) 


M4 
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6.2.2.7 Test 6 Initial Date Test 

Writes Reads a double word first with all bits 0 except 1 (for every 
A ‘laa Second with all bits 1 except 1 (for every bit 
position). 


This is a very quick check of the date paths. 


SEQ 0051 


AG I 


—— 


— eee 
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6.2.2.8 Test 7 Address Bit Test 


Writes a background of all Zeros. 
Read Address 1 for a 0 Byte. 
Complement Address 1. 

Read Address 1 for a non O Byt 

For each are Bit eneitian _ Bit 
Virtuel (2, 4 


000, 70000, 140000, 100000 
Read Address for a 0 word. 
oupsenant Address contents. 
Read Address for ea non-zero word. 


This is @ very quick check of the address bit uniqueness. 


1: 
2 » 10, 20, 40, 100, 200, 400, 1000, 2000, 4000, 
Physical (60002, 60004, 60010, 60020, 5 at 60100, 60200, 


10000, 
60400, 


SEQ 0052 


_——— ee ee ee 


re 


— ee a 
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6.2.2.9 Test 10 Byte Addressing Test 


With ECC Disabled. 

Writes all ones to a double word 

For each of yo Bytes in the Double Word. 
Clears one byt 
Reads all 4 jae from double word. 
Checks for only proper byte clear. 
All other bytes set to all ones. 


This is only done on one double word address. 


NOTE 


This is run for ECC memory only 


ee eo 


— ee ee 
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SEQ 0054 


Test 14 Basic Double Bit Error Test 

Write the CSR to enable diag mode with a double bit error 
— _— of 110011 and Uncorrectable Error Indication 
enabled. 


Write first AUT in a 16k bank with date of all zero’'s. 
This will write the check bits in (1) 


Read address, this should cause a double bit error. BUS PBL 
is asserted and we check for a parity trap to occur. 


Read the CSR for check bits in (1) and Uncorrectable Error 
Indicator. 


Write ones to the high byte of the address under test. Since 
e DBE exsists at this address the write should be aborted. 


Read address and check for a Parity trap to occur as a result of (5) 


Repeat 5 and 6 for data of ones in the low byte and check for 
write abort and parity trap. 


This test checks to see if a double bit error will be aborted and a 


byte write of a double bit error will be aborted. 


NOTE 
This test is only run for the MSV11-J 


—— eee ee — 


cL il ee 


LE 
- —-s ee LLL ——ss-- 


- — a eee nT —— a 


D5 
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6.2.2.11 Test 17 Holding 1's 0's Test 
1. Write ea 16K Bank with alternating Bytes of Zeros Ones 
writing a Byte at a time. 
2. Read each Word for correct Test. 
3. Do (1-2) again for a complement Test. 
This checks the memory for the capability of holding 0's i's. 


SEQ 0055 


ee ee ee - 


— << —— = 
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~ 
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Test 20 Syndrome Bits to the CSR on a SBE Test 


Write CSR with check bits to correct bit 0 of tne first AUT 
16k bank from a 0 to a 1 with diag mode. 


Write AUT with data of O's creating a SBE. 

Clear CSR. 

Read the AUT to clock the address and syndromes into the CSR. 
Read the CSR for the SBE indicator, bit 4. 


Write the CSR to diag mode to clock the syndrome bits into 
CSR bits 5-11. 


Read the CSR for the proper syndrome bits. 
Repeat 1-7 for all 16 data bits. 


Repeat 1-8 for data of ones so that a correction will occur 
from a 1 to a zero. 


This test checks to see that the EDC chip can detect Single Bit 
errors for all 16 date bits by checking for CSR bit#4 and that 
the proper syndrome bits are placed in the CSR. 


NOTE 
This test is only run for the MSV11-J 
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6.2.2.13 Test 21 Marching 0's i's Test 


1. Write ea Background of alternating Bytes of Zeros Ones 


the 16K Bank addressing Down 


) Read check a word 


Byte Swap a word 
Read check a word 


the 16K Bank addressing Up 
Read check a word 
Byte Swap a word 
Read check a word 


the 16K Bank addressing Up 
Read check a word 
Byte Swap a word 
Read check ea word 


the 16K Bank addressing Down 
Read check a word 
Byte Swap ea word 
Read check a word 


This checks the integrity of the 32 Bit Double Words. 
It can execute out of the User Data PAR's. 


NOTE 


It is not uncommon to see a misleading 
error typeout because the second test in 
each case is based upon a byteswap of 
the first test which may or may not have 
failed. If the error report § indicates 
errors in pairs with the bad bit in the 
second report pains the same bit 
position relative to a byte then you 
should ignore the second error report. 


SEQ 0057 


; 
— = ——— 
—_—_ A 
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6.2.2.14 Test 22 Refresh Test 


1. 


Write a diagonal Test of ones on every KDIAG(TH) stripe 
write zeros elsewhere. 


This Test is on addresses not bit positions. 


Example: 
Address MSB's 
LSB's 'qo0dg1 odd! 
'900100010 
'01000100 
'10001000 
‘'o0o0og1 Odd! 
‘00100010 
‘01000100 
'10001000 


NOTE 
Example uses KDIAG of value 4 more typical is a value 


of 8. Consult the symbolic definition of “KDIAG"” in 
the program listing to be sure. 


Disturb each row for > 3.2ms 
Read check diagonal pattern 


Do (1-3) KDIAG times moving the placement of the diagonal 
stripe to cover all address positions. 


Do (1-4) for e complement pattern 
(zeros in a background of ones) 


NOTE 
This test is not normally executed 
except under APT or ACT. It may be 


invoked VIA Field Service Command 13 
(Kamikaze Mode). 


ee 


SEQ 0058 


ewes oe oo OO - 


- mca ema, aa i i 


7 ie 
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——_  —_—— —=—=__—_———— T_T errr errr NT 


6.2.2.15 Test 23 Shifting Diagonal Test 


Similar in overall operation to test 22 except it does not delay 
for refresh and disturb rows. 


NOTE 


This test is not normally executed 
except under APT or ACT. It may be 
invoked VIA Field Service Command 13 
(Kamikaze Mode). 


SEQ 0059 


—_———— a 


—_—-———e— - 


- om a TT A —— wee me 
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SEQ 0060 | 


i 


caer 6.2.2.16 Test 24 Fast Galloping Pattern Test 

2542 This does a classical galloping pattern except that addressing is 
Saaz incremented by 400 Octal (every 64th double word) 

2546 NOTE 

2548 This test is not normally executed 

2549 except under APT or ACT. It may be 


2550 invoked VIA Field Service Command 
2551 (Kamikaze Mode). 


—_ LL ELLE I OC a 


— = __=_<—_<_.— Le eT re | mm me 
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6.2.2.17 Test 26 Random Data Test 
Write Random Data in a 16K Bank while incrementing the Addresses. 
Read check Random Data. 


This routine regenerates the same random numbers by using the same 


seed as the write sequence. After the read check the seed is updated 
so that the next use of this pattern will not invoke the same sequence 
of random numbers. 


If you wish to change the random sequence so that it is different than 
any other run in the same configuration then there are 2 ways of doing 
so. 


a ey symbolic locations “SEEDHI” and "“SEEDLO” to any number 
you like. 


2. Enter Field Service Mode and execute this Test (command 5) 
on some (any good) bank for a short time (30 sec or so). 


This can execute out of She maar Data PAR's, the Kernel Data PAR's, 
and the Supervisor Data PAR's 


SEQ 0061 


—— ee - 
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6.2.2.18 Test 27 Unique Bank Test 


bane Test uses Test 0 to write read the Bank number in each 
ank . 


It does not test Banks that require relocation to test. 


It does not run as part of any script but rather is always run after 
normal pattern tests are complete. 


—_—— «<< 


SEQ 0062 


~- =e rE oe eS 


TE 
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6.2.2.19 Test 30 Flush Out DBE's Test 


This Reads each location then moves the old value back in. This is 
done mn ot ECC Disabled and therefore corrects any DBE's or SBE's Cif 
possible 


It does not run as part of any script but re is @lways run jus 
prior to the End of Pass Code, as part of a Control "C” (Boot) 
command, as part of End of Pass shutdown for ACT or XXDP Chain Mode, 
as part of hanging sequence after an error if under ACT or APT, and as 
part of a shutdown sequence directed by Switch 8 (Halt Program). 


SEQ 0063 


I ee ee 


M5 
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SEQ 0064 
2625 
aes 6.2.2.20 Test 31 SOB-A-LONG Test 
2628 Rationalization 
2629002 —“‘“—s—s—~—~—~—~—~—s—s—stsisis renee 
2630 
2631 In order to concentrate the memory cycles of a test into a particuler 
2632 address, we must cut the overhead cycles to a minimum, Frequently, 
2633 the instruction itself any provide adequate data or set up a 
seas background in which any complemented bit may find it hard to survive. 
26 The SOB instruction is the only PDP-11 instruction that is (1) 2a 
2637 single operand, (2) can be repeatedly executed at the same PC and, (3) 
cone can escape this repetitious loop. 
2640 Hence, it can be possible to SOB a MOS cell to death (Cor at least 
2641 brain wash him), and to SOB a core into over-heating (or at least warm 
coae discomfort). 
2644 The SOB Routine will be loaded and called with RO set equal to the SOB 
2645 constent "“SOBK”, Ri set equal to the complement of a "SOB RO,.” 
ony Instruction "100776". 
oes Simplified SOB Example: 
2650 1$: SOB RO,1$ ;SOB till RO underflows 
2651 MOV R1,1$ ;Write complement of SOB 
2652 CMP R1,1$ ;Read check not SOB 
2653 BEQ 2$ ;Skip if 
2654 SOBF AIL ;Trap report error 
2655 2$: SOBMOV1 ;Code to get self moved 
26 SOBMOV2 ;Forward 1 word and run again 
2657 SOBMOV3 
2658 SOBMOV4 
ores SOBMOV. 
2661 The value of the SOB constant can be found at symbolic location “SOBK” 
eoee (typical 25 decimal). 
2664 This test is not in the normal script of execution but may be added 
2665 vie the APT €E-TABLE, reference symbolic locations "MKPAY "“MJPAT", 
2666 "$DDW2-5”". Field Service Mode command 8 is the normal method of 
2667 running this pattern. 
2668 
2669 
2670 NOTE 
2671 
2672 This test is not normally executed 
2673 except under APT or ACT. It may be 
2674 invoked VIA Field Service Command 13 
eee (Kamikaze Mode). 


a LCDI IR 
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SEQ 0065 


6.2.2.21 Test 32 Write Recovery Test 


This test causes ea WRITE, READ, WRITE, READ, ... to occur in memor 
and if the ist, 3rd, Sth, .. «READ is bad the program may bomb or i 
the 2nd, 4th, 6th, ... READ is bad the program will gracefully type 


out the error. 


Write Recovery Test 
This test differs from other tests in that it consists 


bs aid in the debug, remember that the bank ae a margin are being 
siaploved. Ri will allow the user to at least see which memory 
faile 
The test consists of 1/2 of the bank stored with "MOV R2,-CPC)” 
and the other 1/2 containing "177667". "177667" is the complement 
of "JMP (RO)" instruction. R2 contains “COM -(R1)" instruction 
- gt A the bank and R1 contains the highest test address in 
a 
If you understand this so fer the rest is easy. 
The test execution is as follows: 
1. The "MOV R2,-(PC)" instruction executes ay, 
the contents of R2 in the address it vacated ( to -(PC) 
2. Since R2 contains a "COM -(R1)” instruction it complements 
the hi st eddress under test. this address contained 
"177667" so after the COM -(R1) it equals 110 
cleverly this is the "JMP (RO)” instruction 
3. This sequence continues until the “MOV R2, - CPC)" 
instructions reach the middle of the test bank. 
then the “JMP (RO)” instruction is met 
and executed. RO contained the return address back 
to test 13. 
4. These steps sare repeated for each bank under test. 


NOTE 


This test is not normally executed 
except under APT or ACT. It may be 
invoked VIA Field Service Command 13 
(Kamikaze Mode). 


Sm mm 
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2736 6.2.2.22 Test 33 Branch Gobble Test 


SEQ 0066 


2738 This test loads e small routine into the aunery under test. The 
er 


2739 routine moves itself along in memory one word af 


each pass so that 


2740 when it reaches the end every instruction has executed from ever 
2741 location with the exception of the beginning and end of each tes 


2742 erea. 


2748 BGTEST: 0O 
BRGOBB: SEC 
2750 ADCB BGTEST 
BMI & 
2752 INCB BGTEST+1 
BR BRGOBB 
2754 1$: BVS 


2756 2$: CLV 
2757 INCB eres! 


2759 BYC 3$ 
2760 BMI 4$ 
2761 3$: ERROR 

2762 4$: RETURN 


The Branch Gobble's general format after you eliminate setup code and 
2745 code to move the program slong is as follows. 


; TEST WORD 


;INC LOW BYTE 

;END LOOP AFTER 128 TIMES 
;INC HIGH BYTE 

;LOOP 128 TIMES 

;BRANCH IF V-BIT SET (SHOULD BE) 
;ERROR TRAP 

;CLEAR V-BIT 

;INC HIGH BYTE ONE LAST TIME 

;BRANCH IF C-BIT SET CSHOULD NOT BE) 
;BRANCH IF V-BIT CLEAR (SHOULD NOT BE) 
;BRANCH IF N-BIT SET (SHOULD BE) 
;ERROR TRAP 


2764 This code gr igiqnaliy came from the PDP-11 Family Instruction 
DZQKA-A., he 


2765 Exerciser 


first MOS memorys fell succeptable to this 


2766 section of that diagnostic and it has been an important memory 


2767 exerciser ever since. 


2770 NOTE 


5772 This test is not normally 


2773 except under APT or ACT. 
2775 (Kamikaze Mode). 


executed 
It may be 
invoked VIA Field Service Command 13 


— inn 
— LT LT 
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| SEQ 0067 
| 2780 
| 2781 
2782 
2783 
2784 
oa 6.2.2.23 Test 34 Soft Error Test 
2787 Rationalization 
2788 eee nnn 
2789 
2790 MOS chips have a failure mode in which they can randomly pick or drop 
2791 bits. This is caused by Alpha particles bombarding the cell. If the 
2792 cell is very small (and they ere) then the electrons displaced by the 
2793 Alpha particle are sufficient to cause the cell to change from a one 
ih a to a zero or from a zero to a one. 
2796 This test is controlled by the main program so that it is used to 
2797 create a ‘Test of i25252 and 52525 on alternate passes of the 
2798 er ram. The configuration table is used to flag banks that have the 
2799 est invalidated because another Test was written over this 
coor background. 
soot This Test is nothing more than a clever use of Test 0. 
28 
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6.2.2.24 Test 35 Worst Case Parity Test 
1. Force Write Wrong Parity in each 1K word block of the Memory 
Under Test. 


2. Read with Parity Trapping enabled, making sure that a trap 
occurrs. 


3. Make sure error address bits are set correctly. 


4. Write good parity without trapping, and make sure no trap 
occurrs when read. 


NOTE 


This test is run for parity memory which 
is not controlled by the same CSR as the 
program. 


SEQ 0068 


-— —. «<a ome ae 
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SEQ 0069 


6.2.2.25 Test 36 Correction Code Test 


1. Write CSR with check bits to correct bit 0 of the first address 
in a 16k bank from a 0 to a l with diag mode. 


2. Write AUT with data of 0's. 

3. Read AUT for correction of bit 0 from a 0 to a l. 
4. Repeat 1-3 for all 16 date bits. 

5 


Repeat 1-4 for data of ones so that a correction will occur 
from a 1 to a zero. 


This test checks to see that the EDC chip can correct Single Bit 
Errors for all 16k data bits from a 1 to a O and visa versa. 


NOTE 
This test is only run for the MSV11-J 


ei LLL COO ei ee 
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6.2.2.26 Test 37 Check ECC Disable Test 
1. Write CSR with ECC disable, Diag mode, and SBE check bits 
of 000010. 
2. Write AUT with data of zero's. This should write check bits to 
memory . 


3. Read AUT for data of zeros insuring no correction was made. 


NOTE 
This test is run on the MSV11-J only. 


SEQ 0070 


| 
| 


' 


a — ——_—— a a. —— - ——— » " 
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EQ 0071 


2896 6.2.2.27 Test 41 Address to CSR on DBE Test 


2898 1. Write CSR with ECC disable, Diag mode, and Double Bit error 
2899 check bits of 010011 


Write AUT with data of zeros creating a DBE. 

Read AUT to detect DBE and to clock address into CSR 

Read CSR for correct address in bits 5-11. 

2907 5. Increment address by 1k and repeat i-4 until 16k is done. 

2909 This test insures that the correct address appears in CSR bits 5-11 on a DBE 


~ 

3 

uw 
> Ww 


2912 NOTE 
2914 This test is run on a MSV1I1-J oniy. 


a EE _—_——— = ee ~- -—_ 
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; Q 0072 


| 

ooSe 6.2.2.28 Test 42 Extended Address to CSR on Error Test 
2926 1. Write CSR with SBE check bits of 000010 with Diagnostic Mode. 
2928 a. mite low address in a 16k bank with date of zeros creating a 


3. Clear the CSR. 
4. Read address to detect SBE. 
5935 5. Read CSR for correct address and the SBE indicator bit #4. 
3 6. Enable CSR bit 14 to check the Extended address bits. 
7. Read CSR for correct address bits 
2941 8. Repeat 1-7 with a test address that is the highest in a 16k bank. 


2943 This test checks to see that the correct address bits apppear in the CSR. 
2944 This is also repeated for the Extended Address function in the CSR. 


2946 NOTE 
2948 This test is only run for the MSV11-J 
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Test 43 Write Byte Test 


Write CSR to oo mode with check bits of 001100. These 
correspond to data of zeros. 
Write first AUT with data of one in bit zero. The write 


effectively creates a SBE in byte 0. 

Clear the CSR 

Write byte 1 of the AUT with data of all ones. 
Read CSR to check for SBE indication. 

Write the CSR to Diag mode. 


Read the AUT to check for the correct data -- all ones in high byte 


and all zeros in low byte. 


SEQ 0073 


Read the CSR to check for correct check bits corresonding to the data 


read in (7). These check bits are 000110. 


Repeat (1)-(8) this time creating an error in byte 1 (2) and writing 


byte 0 in (4). 


This test checks to see that a SBE will be corrected during the read portion of the 


byte write and that correct checkbits will be generated on the write. 


NOTE 
This test is only run for the MSV11-J 


ea dd meta ee ee a, mr | re eee -_—- - ——_- ewe - 


CVMJAAO MSV11-J MEMORY DIAG. MACRO V0O5.0lb Friday 15-Feb-85 16:10 Page 75 


' 
' 


3002 6.2.2.30 Test 44 Shifting Checkbits through the CSR Test 
3004 1. Write CSR to Diag Mode to Enable Checkbit register. 
Write CSR with check bits of 000001, ECC diseble and Diag mode. 


Write memory with data of zeros. This should write the check bits 
into memory. 


33 


Complement check bits pattern and write CSR as in (2). 

Read CSR for complement check bit pattern. 

Read memory to read check bits written in (2) into CSR. 

Read CSR for corret check bits written in (2). 

Shift check bit pattern and repeat (1-7) till CSR bits 5-10 are done. 


Complement check bit pattern in (2) and repeat (1-8) shifti @ zero 
3022 through a field of ones. - se 


3024 10. Repeat 1-9 for every 100 octal locations in 16k 


3026 This test checks the ability to read check bits from the CSR to memory and back. 
3027 The test is done twice. Once shifting a field of a one thr e field of zeros 
3028 and a zero thr a field of ones. This tests the Checkbit/Syndrome bit register 
3029 and Check bit RAM’s. This test is done for every 100 octal locations in 16K. 


iv 
So 
— 
ui 
o ones ii wy & 


3032 NOTE 
3034 lnis test is only run for the MSV11-J 


~ meres a ee Ce 


SEQ 0074 
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6.2.2.31 Test 45 Syndrome Bits to the CSR on a DBE Test 


Write CSR with DBE check bits of 110011 with Diag mode. 
Write memory with data of zeros creating a DBE. 

Clear CSR. 

Read memory to detect DBE. 

Read CSR for Uncorrectable error indicator. 

Write CSR to Diag mode to read Syndrome bits into CSR. 
Read CSR for correct Syndrome bits of 111111. 


Repeat (1-8) with Muliple Bit Pay check bits of 111100 and 
corresponding Syndrome Bits of 110000. 


o @onoeure Ww we 


Write CSR with Diag mode to enable Check/Syndrome bit Register. 


This test checks the pn ig i ag the a to detect a DBE and read for the proper 


Syndrome bits ¢ nerated by 
bits corresponding to a Multiple Bit error. 


NOTE 
This test is only run for the MSV11-J 


e EDC chip. This test is then repeated with check 


eee er 


SEQ 0075 
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| SEQ 0076 


3078 

3079 

3081 

3082 

Hat 6.2.2.32 Test 46 Check Single Bit Errors with ECC Disabled Test 
3085 1. Write CSR with check bits to correct bit 0 of the first address 
sont in @ 16k bank from a 0 to a 1 with diag mode and ECC disabled. 
sons 2. Write AUT with data of 0's thus creating a SBE. 

444 3. Write the CSR to ECC disable. 

43 4. Read AUT to detect SBE. 

seen S. Check to see that no trap occured. 

Sosy 6. Read CSR to see that uncorrectable error (CSR15) is set. 

sone 7. Repeat 1-6 for ell 16 date bits. 

3100 8. Repeet 1-7 for data of ones so that a correction will occur 
Het: from a 1 to a zero. 

3103 9. Repeat 1-8 except in steps (3) the CSR is written to ECC Disable 
ee po BUS PBL enable and (5) we check for traps. 

3106 This test checks to see that SBE are treated a uncorrectable errors with ECC 
3107 Disable. The test is repeated 2 times, once with ‘rage disabled and again 
3198 with it enabled. this is done for all 16 pessible SBE conditions. 

3110 

3111 NOTE 

3112 ; ; 

sits This test is only run for the MSV11-J 
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Test 47 NO CSR Update On SBE with exsisting DBE test 


Write the CSR to Diag mode to enable Checkbit/Syndrome bit Register. 


Write the CSR with DBE check bits of 110011 and Diag mode. 
Write memory with data of zeros creating ea DBE. 

Write CSR with SBE check bits of 000010 and Diag mode. 

Write memory 4k above address in (3) creating a SBE. 

Clear CSR. 

Read memory with address in (3) to detect DBE. 

Reed CSR for correct address and Uncorrectable error indicator 
Read memory with address in (5) to detect SBE. 


. oe Oe for SBE indicator and no change in DBE status in CSR 


in 


This test checks to see that no update will occur in the CSR with a SBE in 
memory when ea DBE already exists. 


NOTE 
This test is only run for the MSV11-J 
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6.2.2.34 Test 999 Null Test 
This is an instant return added to preserve the software structure. 


This test replaces any real tests when the APT E-Table does not 
specify a test to be run. 


| 
| CVMJAAO MSV11-J MEMORY DIAG. 
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7.0 PROGRAM FEATURES 
7.1 Fest Dete Access Rates 


One of the main areas of concern in testing memory in systems 

nv i ts is speed. One of the prime reasons that system programs 

like RSTS,IAS and MUMPS can crash due to memory failures not 

detectable by memory diagnostics (0-124K,0-2 MEG,etc.) is because of 

multiple NPR devices contending for the bus. After some delay ea NPR 

—< Mem bus master and does several memory transfers at memory 
e rates. 


On the other hand most diagnostics when writing readi and/or 
checking patterns spend most of their time fetching instructions and 
operands out of their program space and proportionally little time 
accessing the memory under test. 


This diagnostic's error detecting abilities have been optimized around 
the ery design criteria of speed. To this end the following steps 
have been teken. 


7.1.1 Fast City 


Utilization of Memory Management Registers as Non Memory Bus, Non 
US, Bipoler Memory. Since User Mode is only used for relocation 
and Date Space is never used, then subroutines can be executed from 
the UIPAR’s, UDPAR's, KDPAR's, SDPAR's and with some Bit Pattern 

restrictions the UIPDR's, UDPDR’s, KDPDR’s, and SDPDR's. 


The program runs in Kernel mode and Patterns ere executed in 
Supervisor mode for mapping purposes. All core patterns and some MOS 
Patterns are subroutines that are moved to this Bipoler region 
referred to in the program as Fast City. 


NOTE 


18-Bit PDP-11's cannot execute from the 
PAR's because their PAR's are only l2 
bits wide; they also have no Supervisor 
Mode. Therefore, all patterns are 
executed in rypog b using User Mode 
(reference Section 7.5). 


7.1.2 SOB's 


| 


SEQ 0079 | 


—_—— 
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Utilization of the full PDP-11 Instruction Set to speed pattern 
algorithms (principally the SOB). 


7.1.3 CACHE 


CACHE is used between pattern tests to decrease regres pare e- 
CACHE can be defeated by the operator (reference section 2.4.3 


7.2 Bank Zero Testing 


Bank Zero has been traditionally neglected by memory diagnostics for 
the following reason. 


The vector space exists there and ALL traps must not access test 
pattern date. If the area is tested the diagnostic must not use any 
traps, and it is against the rules for power to fail. 


Systems with Memory Management can overcome this because all traps are 
to Kernel Virtual — even if the power should fail (caution must be 
observed because power up goes to syeteet address 24 (because the 
Memory Management Unit comes up of : 


However, Catch 22 is that the pagrasts is not APT compatible in this 
mode because APT Accesses Physical Memory Locations. 


The POP-11/83 can over come this because the QBUS Map can fool APT. 


Because of the previous arguments me program does not relocate in 
the true since of the word (i No position independent code was 
written (at least not on warnene)). ‘but rather this rogram moves and 
— (hereafter referred to as relocates). his enables the 

te testing of Bank Zero or any other pron space or privileged 
space ppg es all other banks are tested The conditional test to 
see if a bank is protected is complemented when relocated). 


NOTE 
The program will relocate only in_ the 


first pass under APT; after this, the 
cians will remain fixed in Banks 0 and 


7.3 Memory Configuration Map 


LL I en 
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This map is printed out mpeg! etety after oisire Ce. memory unless SW6 
is set (reference section 2.4.1). It can also er intee at any later 
time in Field Service Mode (reference section 2.4.4 

Example: 

MEMORY CONFIGURATION MAP 
16K BANKS 
1 2 3 4 5 6 7 
SRS Se nae nae Cane een anew nee) wanenee wna eeen renee 


ERR 
MEMTYPE EEEEEEEPPPPPPPPPPPPPPPPPPPPPPPPEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
eect i, was ce: meen: ween 


1 l 1 1 4 1 
0 1 2 z 4 é ; 
ERRORS 45670123456 70123456 70123456 79123456 70123456 70123456 701234567 
MEMTYPE EEEE 
CSR 4444 
PROTECT 


If the Feat Terminal 


Displayed are Banks 0-77 Octal (1 meg nerds). 
hen all Banks (0-177) would 


Switch was set (reference section 2.4.1) t 
If this was an 18-Bit PDP-11 bea - 11/23), only 


be shown. Banks 0-7 
would be printed. 
The fields: 
ERRORS: 
The siz ng routine could not write zeros and ones in Banks 
10 11, nence they are marked as bad with X's 
ERRORS: 
MEMTYPE : 
as 0- are ae 8 ype E (MSV11-J), and Banks 10-37 are 
mery re P (MSV11-L/P) and Banks 40-77 are memory type 
ECMSV 1-J). Banks 100-167 do not exist. 
CSR: 


SEQ 0081 


— = ee 
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Banks 0-7 are assi d to CSR 172100, 10-17 to CSR 172102, 
and 20-37 to interleaved CSR's 172104 and 172106 and banks 
40-77 are assigned CSR 17210. 


PROTECT: 


Banks O and 1 are protected because they are program space. 
Bank © and 1 can also be protected because they are in the 
bottom 16K of an MSV11-L/P CSR. 
and program space overshadows MSV11-L/P protection. 
and 1 will not be tested until the program relocates. 


7.4 Everything You've Always Wanted To Know About SUPERMAC ... 


SUPER-MAC is a set of structured programming macros that allows 
programs to be written in a high level, easily understood language. 


As a general rule, most SUPER-MAC statements can be_ single-line 
statements or multiple-line (nested) block statements. A single-line 
statement must be completed on one source line; no continuation lines 
are allowed. Single-line statements should be as short and a as 
possible. Comments may also be included on a source line. All the 

neral rules, conditions, etc., that govern MACRO-11 also govern 
UPER-MAC. Spacing on a source Ine is very important. The elements 
should be separated by a comma or a space. Tabs should never be used 
for epestae For example: The expression A+B is interpreted 
different than A + B. 


All the conditional statements can be written as multiple-line nested 

blocks. Each level of nesting within a block must be terminated with 
S associated END statement. Each level of nesting should be indented 
wo spaces. 


User written macros or assembly language instructions may be included 
in @ program if desired. As a debugging aid, if the symbol LST$$ is 
defined, it will cause generated code and labels to be listed. All 
programs must begin with the macro call SMACIT. This call initializes 
Seine egal PDP-11 source and destination operands are legal 
in - ‘ 


The protection is hierarchical 
Banks 0 


SEQ 0082 
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7.4.1 Sample Source File - 
ENABL ABS 


CHIONMoOOVT>y 


-ENABL AMA 
-MCALL .SUPER 
SUPER 


:LST$$=0 
BITS=40 


oooococooe°co 


END ;OF IF A 
IF B IS FALSE 
MOV 


END ;OF IF B 
IF A €Q B THEN LET C := D 
IF ALT 


.. €a 

END ;OF IF A 

IF A EQ B AND C NE D 
MOV F,G 

END ;OF IF A 

IF A EQ B OR C NE D 
MOV F,G 

END ;OF IF A 

IFB A EQ BAND CEQ I 
MOV 


H,J 
ELSE 
MOV oJ 
END ;OF IFB A 
IFB A EQ B ANDB CEQ 1 
MOV =#H,J 


m 


LSE 
MOV E,J 


SEQ 0083 


——_—_—— - 


'CVMJAAO MSV11-J MEMORY DIAG. 


t 


- a ce ee 


ON. 
;FOR ee 


END 
;BEGIN EXAMPLES 


;CASE EXAMPLES 
MOV 


G/ 
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END ;OF IFB A 
TF RESULT IS EQ 


END ;OF IF RESULT 
IF BITS SET.IN A 


MOV 8B,C 
END ;OF IF BITS 
IF BITS OFF.IN A 
MOV 


END ;OF IF BITS 
;ON.ERROR IS LIKE AN IF STATEMENT ON THE C-BIT 
iON. ERROR EXAMPLES 


ERROR 


MOV C,B 
END ;OF ON.ERROR 
ON. NOERROR 


A.B 
END ;OF ON.NOERROR 
ERROR THEN LET A :B= B 


I s -5 10 23 
FOR I 

RO := 90 7T0 140 BY 4 
ACRO) 


FOR RO 
FOR I := 133 DOWNTO 3 BY 2 
ADD A,B 
;OF FOR I 


BEGIN A.PHA 
FOR RO := 0 TO 167 


MOVB ACRO),B 
IF oe. LT O THEN LEAVE ALPHA 
END ; FOR RO 


FOR ft 400 TO 567 

IF B GE O THEN LEAVE ALPHA 
END ;O0F FOR RO 

ALPHA 


END 
; $RETURN EXAMPLES 
$RETURN 


$RETURN ERROR 
$RETURN NOERROR 


A,RO 
CASE RO _ 


SEQ 0084 


<a A i, i od 


ore ee ee ee 


o_— ee eee 
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-MAIN. 
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END ;OF CASE RO 


- END 


le Listing File (with No Ex 


000000 


Samp 
MACRO M1111 0O1-APR-79 16:41 


re eee 


panded Macros) - - 


-ENABL ABS 


-ENABL AMA 
-MCALL .SUPER 


. SUPER 
;LST$$=0 
BITS=40 


CHIONMoOOWD 
oooocoocece 


MACRO M1111 01-APR-79 16:41 PAGE 3 


012737 000023 000006 


012737 000034 000010 


013737 000004 000006 


;LET EXAMPLES 
LET RO 


T := A 
LET B := C + 
LET E := F + 
LET G := H + 
LET J := J * 

LET A :B= B 

IF EXAMPLES 

F A IS TRUE 
23, 

IF 


END ;OF 
IF B IS FALSE 
MOV 34,E 


C,D 


END ;OF IF B 
IF A ‘EQ , . THEN LET C : 


= D 


SEQ 0085 


—_—— rn. 


——_— 
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013737 


013737 


013737 


013737 
013737 


013737 
013737 


013737 


013737 


013737 


013737 
013737 


013737 
013737 


000010 


000012 


000012 


000016 
000010 


000016 
000010 


000000 


000002 


000004 
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000006 
000014 
000014 


000022 
000022 


000022 
000022 


000002 
000004 


000006 


000002 
000002 


000002 
000002 


A, 


=) 


END ;OF IF RESULT 
IF BITS SET.INA 


MOV 
END 


B,C 
;OF IF 


BITS 


IF BITS OFF.IN A 
MO 


——  — — — 


SEQ 0086 | 


END ;OF IF BITS 
;ON.ERROR IS S LIKE AN IF STATEMENT ON THE C-BIT 


;ON.ERROR EXAMP 


MOV B 
END ;0F ON.NOERROR 
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000456 


00522 
000534 


005237 


005360 


000000 


000000 


ON.ERROR THEN LET A :B= B 


;FOR EXAMPLES 
FOR 


OF F 
FOR RO ‘ 


C 
END ;OF 
A 8 


-5 TO 23 
A 


OR I 

0 TO 140 BY 4 
(RO) 
FOR RO 


133 DOWNTO 3 BY 2 


———— a 


————<——$ 
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| 


7.4.3 
.MAIN. 


WO NDUIS Wor 


J/ 
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063737 900000 000002 ADD A,B 


116037 000000 000002 


END ;0OF 
;BEGIN EXAMPLES 
BEGIN ALPHA 
OR ~ 4 := ©OTO 167 


MOV ACRO),B 
IF B LT O THEN LEAVE ALPHA 
END ;OF FOR RO 
FOR RO := 400 TO 567 
IF B GE O THEN LEAVE ALPHA 
END ;OF FOR RO 
END ALPHA 


;$RETURN EXAMPLES 
$RETURN 
$RETURN ERROR 
$RETURN NOERROR 
;CASE EXAMPLES 
013700 000000 MOV A,RO 
CASE RO 
000000 A 
000002 B 
000004 . 
000010 E 
000012 F 
END ;OF CASE RO 
000001 .END 


le Listing File (with Expanded Macros) - - 


000000 


000000 


S 
MACRO M1111 01-APR-79 16:10 PAGE 2 


.ENABL ABS 
.ENABL AMA 
-MCALL .SUPER 
SUPER 
LST$$=0 
BITS=40 

A: 0 

B: 0 

C: 0 

D: 0 

E: 0 

F: 0 

G: 0 

H: 0 

I: 0 

J: 0 
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SEQ 0087 | 


——— a 
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18 
19 


20 


21 000044 


22 


23 0000 


24 
25 
26 
27 
26 
29 
30 
31 
32 


33 


34 
35 


36 
37 


38 


39 
40 
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013700 


013737 
063737 


013737 
005237 


013737 
062737 


062737 
113737 
005737 


001403 
012737 


005737 
001003 
012737 
023737 
001003 
013737 
023737 
002004 
013737 
000403 
013737 


023737 
001007 


013737 


KK / 


000000 


000004 
000006 


000012 
000010 


000016 
000002 


000001 
000002 


000000 


000023 


000002 
000034 


000000 
000006 


000010 


000000 
000004 
000012 
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000002 
000002 
000010 


000014 
000014 


000022 
000000 


000006 


000014 


teen lee 


;IF EXAMPLES 


LO: 


Li: 


Le: 


L3: 


L4: 


IF A IS TRUE 
TST A 
BEQ LO 

MOV 23,0 
END ;OF IF A 


IF B IS FALSE 
TB 


IF A €Q B THEN LET C := D 
CMP A,B 


BNE L2 
MOV D.C 


IF ALT B 
CMP A,B 
BGE L3 
MOV 
ELSE 
BR L4 


C.D 


MOV €E,D 
END ;OF IF A 
IF A EQ B AND C NE D 
CMP A,B 


F.G 
END ;OF IF A 


SEQ 0088 


- _- - ——_— ea a en at neem rt ee a te ee 
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| 
i 
! 


41 


-MAIN. 


023737 
04 


013737 


123737 
001010 
023727 
001004 
013737 
00040. 


013737 


123737 
001010 
123727 
001004 
013737 
000403 
013737 


001003 
013737 


032737 
001403 
013737 


032737 


L/ 


000000 
000004 


000012 
000090 
000004 


000016 


000010 


000000 


000040 
000002 


000040 
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000002 
000006 


000014 


000002 


000001 


000022 


000022 


000002 


000001 


000022 


000022 


000002 


000000 
000004 


000000 


LS: 


16:10 PAGE 3-1 


L7: 


L1i0: 


Lil: 


Li2: 


Li3: 


L14: 


Li5: 


MOV F,G 
END ;OF IF A 


IFB AEQ@BANDC EQ 1 
A,B 


MOV €E,J 
END ;OF IFB A 


a A EQB ANDB CEQ i 


MOV E,J 
END ;OF IFB A 
IF RESULT IS EQ 
BNE L14 

MOV A,B 
END ;OF IF RESULT 
IF BITS SET.IN A 
BIT BITS,A 
BEQ L1i5 

MOV B,C 
END ;OF IF BITS 
IF BITS OFF.IN A 
BIT BITS,A 


SEQ 0089 


_ — — A A a 


M/ 


| CVMJAAO MSV11-J MEMORY DIAG. MACRO VO5.01b Friday 15-Feb-85 16:10 Page 91 


sae 61 000410 013737 000004 000006 MOV C,D0 
3746 62 000416 | | END ;OF IF BITS 
3747 000416 Lie: 
3748 63 ;ON.ERROR IS LIKE AN IF STATEMENT ON THE C-BIT 
3749 64 ;ON.ERROR EXAMPLES 
3750 65 000416 ON.ERROR 
3751 000416 103004 BCC L17 
3752 66 000420 013737 000000 000002 MOV A,B 
3753 67 000426 ELSE 
3754 000426 000403 BR L20 
He §4 000430 Li?: 
LeU 68 000430 013737 000004 000002 MOV C,B 
3759 69 000436 END ;OF ON.ERROR 
3760 000436 L20: 
3761 70 000436 ON. NOERROR 
3762 
3763 
A 4 -MAIN. MACRO M1111 01-APR-79 16:10 PAGE 3-2 
3766 
3767 000436 103404 BCS L2i 
3768 71 000440 013737 000004 000002 MOV , 
3769 72 000446 ELSE 
3770 000446 000403 BR L22 
3771 000450 L2i: 
3772 73 000450 013737 000000 000002 MOV A, 
3773 74 000456 END ;OF ON.NOERROR 
3774 000456 L2e: 
3775 75 000456 ON.ERROR THEN LET A :B= B 
3776 000456 103003 BCC L23 
3777 000460. 113737 000002 000000 MOVB B,A 
3778 000466 L23: 
3779 76 ;FOR EXAMPLES 
3780 77 000466 FOR I := -S 10 23 
3781 000466 012737 177773 000020 MOV -5,I , 
3782 000474 BO: 
3783 78 000474 005237 000000 INC A 
3784 79 000500 END ;OF FOR I 
3785 000500 005237 900020 INC I 
3786 000504 023727 000020 000023 CMP I, 23 
3787 000512 003770 BLE BO 
3788 000514 EO: 
3789 80 000514 FOR RO := OTO 140 BY 4 
3790 000514 005000 CLR RO 
379] 000516 : Bi: 
3792 81 000516 005360 000000 DEC ACRO) 
3793 82 000522 END ;OF FOR RO 
3794 000522 062700 00000. ADD 4,R0 
3795 000526 020027 000140 CMP RO, 140 
) 


~~. = _—— —_— A 


N7 
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SEQ 0091 
3797 000532 003771 BLE B1 
3798 000534 El: 
3799 83 000534 FOR I := 133 DOWNTO 3 8Y 2 
3800 000534 012737 000133 000020 MOV 133,I 
3801 000542 Be: 
3802 84 000542 063737 000000 000002 
3803 85 000550 END ;OF FOR I 
3804 000550 162737 000002 000020 SUB 2,1 
3805 000556 023727 000020 000003 CMP I, 3 
3806 000564 002366 BGE B2 
3807 000566 E2: 
3808 86 ;BEGIN EXAMPLES 
380° 87 000566 BEGIN ALPHA 
3810 000566 B3: 
3811 88 000566 FOR RO := O7TO 167 
3612 000566 005000 CLR RO 
3613 000570 B4: 
3614 89 000570 116037 000000 000002 MOVB ACRO),.B 
3815 90 000576 IF B LT O THEN LEAVE ALPHA 
3816 000576 005737 000002 TST B 
3617 00C602 002415 BLT E3 
3818 91 000604 END ;0OF FOR RO 
3819 000604 005200 INC RO 
3820 000606 020027 000167 CMP RO, 167 
3821 000612 003766 BLE B4 
3822 000614 E4: 
3823 92 000614 FOR RO := 400 T0 567 
3824 000614 012700 000400 MOV 400,R0 
te 
3827 .MAIN. MACRO M1111 0O1-APR-79 16:10 PAGE 3-3 
3828 
3829 
3830 000620 BS: 
3831 93 000620 IF B GE O THEN LEAVE ALPHA 
383 000620 005737 000002 TST B 
383 000624 002004 BGE E3 
3834 94 000626 END ;OF FOR RO 
38635 000626 005200 NC RO 
3836 000630 020027 000567 CMP RO, 567 
3837 000634 003771 BLE BS 
3838 000636 ES: 
3839 95 000636 END ALPHA 
3840 000636 E3: 
3641 96 ;$RETURN EXAMPLES 
384 97 000636 $RETURN 
384 000636 000207 RTS PC 
3844 98 000640 $RETURN ERROR 
3845 000640 000261 SEC 
3846 000642 000207 RTS PC 
3847 99 000644 $RETURN NOERROR 
3848 000644 000241 CLC 
3849 000646 000207 RTS PC 


-—- . — 
. 


S—S————_—-— Em 


ae ep ers 
—_— 


ee ee 


ee may - LT 
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SEQ 0092 

3851 100 ;CASE EXAMPLES 

101 000650 013700 900000 MOV A,RO 
385 102 000654 , CASE RO 
3854 000654 010046 MOV RO,-(SP) 
3855 000656 006316 ASL asP 

904737 000700 JSR PC,L24 

3857 103 000664 000000 a 
38 104 000666 000002 B 
38659 105 000670 000004 C | 

106 000672 000006 ) 
3861 107 000674 000010 E 
3862 108 000676 000012 F 
3863 109 000700 END ;OF CASE RO 
3864 000700 L24: 
3865 000700 062616 ADD (SP)+,aSP 
3866 000702 013646 MOV @(SP)+,-CSP) 
3867 rn 000704 004736 JSR PC,a(SP)-+ 
3869 111 000001 .END 
3870 
3871 
sey! 7.5 Memory Management Mapping 
ts 7.5.1 Memory Management Mapping For The 11/83 - 
+ A PAR SUPERVISOR KERNEL USER 
3878 0 Program Program Dst Bk/Fst Mem 
3879 1 rogram Program Src Bk/Fst Mem 
3880 2 Program Program Src Bk/Fst Mem 
3881 3 Test Area Program Src Bk/Fst Mem 
3882 & Test Area Program Dst Bk/Fst Mem 
3883 5 Test Area Program Dst Bk/Fst Mem 
3884 6 Test Area Map to CSR's Dst Bk/Fst Mem 
3885 7 Perif Page Perif Page Dst Bk/Fst Mem 
3886 
3888 
3008 7.5.2 Memory Management Mapping For QBUS-11's With Supervisor Mode (eg 11/238) - 
303) PARK SUPERVISOR KERNEL USER 
3893 0 Program Program Ost Bk 
3894 1 Program Program Sre Bk 
3895 2 Program Program Sre Bk 
3896 3 Test Area Program Src Bk 
3897 4 Test Area Program Dst Bk 
3898 5 Test Area Program Dst Bk 
3899 6 Test Area Map to CSR's Dst Bk 
900 7 Perif Page Perif Page Dst Bk 


ce 


— * mm eer Ee ae —  —— i ttt 
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3902 

4464 7.5.3 Memory Management Mapping For QBUS-11's W/o Supervisor Mode (eg 11/23) - 
3905 PAR KERNEL USER 
3906 — .jxj(j« {<= ---- 
3907 0 Program Program/Dst Bk 
3908 1 Program Program/Src Bk 
3909 2 Program Program/Src Bk 
3910 3 Program Test Area/Src Bk 
3911 4 Program Test Area/Dst Bk 
3912 5 Program Test Area/Dst Bk 
3913 6 Map to CSR's Test Area/Dst Bk 
3914 7 Perif Page Perif Page/Dst Bk 


EV —_—- me; ~_---« ———— a. ct ae 


D8 
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3938 
3939 000000 


000000 
163000 
000001 


SEQ 0094 
\LIST TOC 

 ENABL 

“ENABL AMA 

“DSABL GBL 

;NOTE: CVMJAO.SML IS THE SUPER.MAC SOURCE AND IS RELEASED WITH 

: THIS PROGRAM. ALL THESE sMICALL STATEMENTS REFERENCE THAT FILE. 
“MCALL SMACIT,..PUSH, . ,POP.. TAG. . .BRAN, .EMIT, .EMITN, LEMETL EMITR 
"MCALL .IFOPR, .IS, .GEN ‘OPSUB, CLEAR, SET, CLEARB, SETB 

"MCALL RNE,REQ.RLT.RGE, Rei. RULE Oper RMI ,RHI,RLOS,RHIS,RLO,RCS.RCC 
"MCALL IF,.OR,.IFARI,.LEAVE,.GOTO,OR,AND, THEN, ELSE, WHILE, CASE 

"MCALL FOR. TO,DOWNTC, REPEAT .UNTIL. THRU,END, BEGIN 

"MCALL $$END, LEAVE JUMPTO, GOTO, PUSH, POP, LE 

“MCALL ©.SIMPLE, .ARITH, ORB, ANDB, IFB,UNTILB, WHILEB, ON. ERROR, ON.NOERROR 
"MCALL $CALL, $RETURN 

.NLIST TM ;I WANT FAT PAPER! 

"LIST MC,SYM ;LIST MACRO CALLS, SYMBOL TABLE 
“NLIST MD,CND,ME ;DON'T LIST MACRO DEFS & CONDITIONALS & EXPANSIONS 
LST$$= 0 ;DEFINED TO LIST SUPERMAC EXPANSICNS 
$SWR= 163000 ;USE THESE SYSMAC SWITCHES 
STNe 1 ;FIRST TEST NUMBER TO ONE(1) 


LL CE A NE ae —_—_— -——— * 
rn rm nr ern 


—— ee oe 
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rem re erence Rt 


DEFINE TRAPS SEQ 0095 
3942 .SBTTL DEFINE TRAPS 
3943 — ENTRIES HERE MUST HAVE A CORRESPONDING ENTRY IN THE 
3944 TABLE “$TRPAD” CNEAR END OF PROGRAM). 
zaes + TTRAP DEFINITIONS 
tnd ‘HERE IS HOW TRAPS WORK IN THIS PROGRAM 
3949 ; ALL TRAPS EXECUTE A “TRAP” INSTRUCTION WHICH TAKES THE PROGRAM 
saat ;T0 SYMBOLIC LOCATION “$TRAP” 
3952 : AT $TRAP THE PROGRAM PICKS UP THE RIGHT BYTE OF THE TRAP INSTRUCTION 
3953 ;AND INDEXES INTO A TABLE AT LOCATION "$TRPAD” WHICH SENDS THE PROGRAM TO 
oone THE SPECIFIC ROUTINE TO HANDLE THAT SPECIFIC TRAPS TASK. 
a ‘THE ULTIMATE DESTINATION OF A TRAP INSTRUCTION CAN BE GUESSED AT AS FOLLOWS 
3958 SEXAMPLE : 
3959 ; 
3960 ; 
3961 ; sENTER KERNEL MODE 
3963 
3964 : ADD A DOLLAR SIGN TO THE SYMBOLIC NAME AND CHECK THE CRF FOR SOMETHING CLOSE 
3965 ; IN THIS CASE THE CRF HAS $KERNE LISTED AS 032546 
zoee ; AT LOCATION 32546 YOU FIND THE ROUTINE $KERNEL 
3968 NOTE THAT CRF SYMBOLS ARE TRUCNATED TO 6 CHARACTERS 
3969 ; SYMBOLIC NAMES GREATER THAT 6 CHARACTERS ARE USED SO I CAN 
di ; REMEMBER WHAT THEY MEAN! 
3972 } ALL GOOD TRAP raul RETURN VIA AN “RTI” INSTRUCTION 
3973 104401 TYPEIT= 104401 331TY TYPEOUT ROUTINE 
3974 104402 TYPOC= 104402 ;;TYPE OCTAL NUMBER CWITH LEADING ZEROS) 
3975 104403 TYPOS= 104403 33 OCTAL NUMBER ( EADING ZEROS) 
3976 ;TYPON= 104404 ;;TYPE OCTAL NUMBER CAS PER LAST CALL) 
3977 104405 TYPDS= 104405 ;;TYPE DECIMAL NUMBER (WITH SIGN) 
3378 ;TYPBN= 104406 ;; TYPE BINARY CASCII) NUMBER 
3980 104407 GTSWR= 104407 :;GET SOFT-SWR SETTING 
Fs 104410 CKSWR= 104410 ;;TEST FOR CHANGE IN SOFT-SWR 
3983 104411 RDCHR= 104411 ss TTY TYPEIN CHARACTER ROUTINE 
3984 104412 RDLIN= 104412 ;TTY TYPEIN STRING ROUTINE 
3985 104413 RDOCT= 104413 ; TREAD AN OCTAL NUMBER FROM TTY 
hes 104414 RDDEC= 104414 ;;READ A DECIMAL NUMBER FROM TTY 
3988 104415 SAVREG= 104415 ;:;SAVE RO-RS ROUTINE 
ba 4 104416 RESREG= 104416 ;;RESTORE RO-RS ROUTINE 
aea3 104417 KERNEL= 104417 ;ENTER KERNEL MODE 
3993 104420 ENERGIZE=104420 ; TURN ON MEMORY MANAGEMENT & TRAPS 
3994 104421 DEENERGIZE=104421 TURN OFF MEMORY MANAGEMENT & TRAPS 
aose 104422 KMAP= 104422 : MAP KERNEL 1 T0 1 
3997 104423 CACHON= 104423 ; TURN ON CACHE 
3998 104424 CACHOFF =104424 ; TURN OFF CACHE 


CVMJAAO MSV11-J MEMORY DIAG. 
TRAPS 


DEFINE 


- = tee “te. eae,“ “el, ee eam, 


me mm 


F8 
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LOADCSR=104425 
READCSR=104426 


PERRO1= 
PERRO2= 


PERR42= 
PERR43= 


104427 


104467 


ECCDIS= 104470 
ECC1D1S=104471 
ECCINIT=104472 


oan” seaees” 


WAS1SBE=104477 


WASDBE= 


104500 


WAS1DBE=104501 


CLRCSR= 


104502 


onta, teeans 


06 
ENA1SBE=104507 
TSTREAD=104510 
INVALID=104511 
ERRGEN =104512 





;LOAD CORRECT CSR 
;READ CORRECT CSR 


;PROGRAM DETECTED ERROR 


;PROGRAM DETECTED ERROR 
;PROGRAM DETECTED ERROR 


DE D 
; PROGRAM DETECTED ERROR 
PROGRAM DETECTED ERROR 


; PROGRAM DETECTED ERROR 


;DISABLE ECC ON ALL CSR'S 
ISABLE ECC ON 1 SELECTED CSR 


:D 
; INITIALIZE ALL ECC CSR 


‘Ss 
sINITIALIZE 1 SELECTED ECC CSR 
;WRITE GENERATED CHECKBITS IN ALL CSR'S 
;WRITE GENERATED gg IN 1 SELECTED CSR 


;WAS THERE A SBE ON A 


Y CSR? 
ad THERE A SBE ON 1 1 SELECTED CSR? 


THERE A DBE ON A 


Y CSR? 
;WAS THERE A DBE ON 1 SELECTED CSR? 


;CLEAR ALL CSR'S 
:CLEAR 1 SELECTED CSR 


ABLE ECC & WRITE CHECKBITS FROM ALL CSR'S 


SEQ 0096 


; DISABLE ECC & WRITE CHECKBITS FROM 1 SELECTED CSR 
;ENABLE TRAPS ON SBE’S FROM ALL CSR'S 


;ENABLE TRAPS ON SBE’S FROM 1 SEL 
;TEST LOC (R1) & TST FOR SBE (WITHOUT FETCHES) 
;INVALIDATE BACKGROUND PATTERN ON “BANK” 


;CHECK ERROR ADDRESS 


ECTED CSR 


———_—— eee 


a eet dd “ama Al a te 
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CBREG =104513 ;ENABLES CHECKBIT REGISTER 
SYNREG =104514 ;ENABLES SYNDROME BIT REGISTER 


SEQ 0097 


-—- =é 


A A — LL A 


et ll —eeeew <m eeP eo fe — —_—— ——-—— er ee _- —-- > —- - 


H8 
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DEFINE BASIC POP11 STUFF 
| 4060 .SBTTL DEFINE BASIC PDP11 STUFF 
| 4062 ;*#INITIAL ADDRESS OF THE STACK POINTER 
4063 002000 STACK= 2000 ;:FIRST ADDRESS OF THE STACK 
4064 002000 KERSTK= STACK ;;KERNEL STACK 
4065 000740 SUPSTK= 740 : s SUPERVISOR STACK 
4066 000700 USESTK= 700 ;USER STACK 
4067 104000 ERROR=EMT ‘SBASIC DEFINITION OF ERROR CALL 
4068 000004 SCOPE=I0T ;;BASIC DEFINITION OF SCOPE CALL 
4069 177776 PSW= «177776 ; PROCESSOR STATUS WORD 
4070 ; STKLMT=177774 ::STACK LIMIT REGISTER 
4071 ;PIRQ@= 177772 AM INTERRUPT REQUEST REGISTER 
4072 177570 DSWR= 177570 : HARDWARE SWITCH REGISTER 
4073 177570 DDISP= 177570 ARDWARE DISPLAY REGISTER 
4074 177546 LKS= 177546 + NONE CLOCK (KW11-L) STATUS REGISTER 
4076 ;*#MISCELLANEOUS DEFINITIONS 
4077 000011 HT= 11 ;;CODE FOR HORIZONTAL TAB 
4078 000012 LF= 12 ;;CODE LINE FEED 
4079 000015 CR= 15 ;;CODE CARRIAGE RETURN 
4080 000200 CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
4081 000007 MFPT= 7 ;;CODE FOR PROCESSOR TYPE INSTRUCTION 
4083 ;*GENERAL PURPOSE REGISTER DEFINITIONS 
4084 ;SP=R6 ;;STACK POINTER 
4085 :KSP=SP ;;KERNEL STACK POINTER 
4086 000006 SSP=SP ;;SUPERVISOR STACK POINTER 
4087 000006 USP=SP ;;USER STACK POINTER 
4088 ;PC=R7 ;;PROGRAM COUNTER 
4090 ;*"SWITCH REGISTER” SWITCH DEFINITIONS 
4091 1 SW15= 100000 
4092 040000 SW14= 40000 
4093 020000 SW13= 20000 
4094 010000 SWi2= 10000 
4095 000 SWii= 4000 
4096 002000 SW10= 2000 
4097 001000 SW9= 1000 
4098 000400 SW8= 400 
000200 SW7= 200 
4100 100 SW6= «100 
4101 000040 SW5= 40 
4102 20 SW4= 20 
4103 000010 SW3= 10 
4104 000004 SW2= 4 
4105 000002 SWi= 2 
4106 000001 SWO= 
4108 ;#DATA BIT DEFINITIONS (BITOO TO B1T15) 
4109 100000 BIT15= 
4110 040000 BIT14= 40000 
4111 020000 BIT13= 20000 
4112 010000 BITi2= 10000 
4113 000 BIT11= 4000 
4114 002000 BIT10= 2000 
4115 001000 BIT9= 1000 





SEQ 0098 
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‘DEFINE BASIC PDP11 STUFF 


000060 
000114 
000114 
000250 
177746 
177750 
177754 


177766 


177572 
177574 
177576 
172516 


177600 
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; *BASIC eal TRAP VECTOR ADDRESSES 
ERRVEC= 


RESVEC= 


10 


TRTVEcs 


TVEC= 


3L 
CACH 


VEC=114 
PARVEC=CACHVEC 


pian oy 


MMVEC= 


. SBTTL 
;MEMERR = 177744 
CONTRL = 177746 


250 


;TIME OUT AND OTHER ERRORS 
; RESERVED AND ILLEGAL INSTRUCTIONS 


14 ;; TRACE TRAP 

14 ; ;BREAKPOINT TRAP (BPT) 
ao TRAP CIOT) #*#SCOPE+s 
; POWER FAIL 
; EMULATOR oe (EMT) **ERROR+s 


;; "TRAP" TRA 
s31TY KEYBOARD VECTOR 
ss TTY PRINTER VECTOR 
LINE CLOCK (KW11-L) VECTER 
CACHE ERROR INTERRUPT VECTOR 


; PROGRAM INTERRUPT REQUEST VECTOR 
Y MANAGEMENT VECTOR 
CACHE ee 
ACHE ERROR REGISTER 
; MEMORY CONTROL REGISTER 


DEF INE 


MAINT = 177750 ; MEMORY MAINTENENCE REGISTER 
;HITMIS = 177752 ;sHIT MISS REGISTER “1” IMPLIES HIT IN CACHE 
DATARG = 177754 ;;DATA REGISTER 
.SBTTL DEFINE CPU REGISTERS 
CPUERR = 177766 ;;CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 
.SBTTL DEFINE MEMORY MANAGEMENT REGISTERS 
;*MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
MMRO= 177572 
MMR1= 177574 
MMR2= 177576 
MMRS= 172516 
;*USER "I" PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 
; UIPDR1= 177602 
; UIPDR2= 177604 
; UIPDR3= 177606 
; UIPDR4= 177610 
; UIPDR5= 177612 
; UIPDR6= 177614 
; UIPDR7= 177616 
;*#USER "D" PAGE DESCRIPTOR REGISTORS 
; UDPDRO= 177620 
; UDPOR1= 177622 
; UDPDR2= 177624 


—— ree ee ee 


SEQ 0099 


ail —a ee ee a = 


_-——_——.—. 


— me all ———— a; ii a 
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177654 


177660 


177676 


172200 


172240 


172246 


172252 
172254 


DIAG. 
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Y MANAGEMENT REGISTERS 


SER “I" PAGE ADDRESS REGISTERS 


*U 
FASTCITY=UIPARO 
UIPARO= 177640 
UIPARI= 177642 
UIPAR2= 177644 
UIPAR3S= 177646 
UIPAR4= 177650 
UIPARS= 177652 
UIPAR6= 177654 

; UIPAR7= 


;*USER 
UDPARO= 177660 


UDPAR7= 177676 


SIPDRO= 172200 
;SI 


177636 


177656 


177662 
177664 


PDR1i= 172202 
; SIPDR2= 172204 
; SIPDR3= 172206 
; SIPDR4= 172210 
; SIPDRS= 172212 
; SIPDR6= 172214 
; SIPDR7= 172216 
; SDPDRO= 22 
; SOPDR1= 172222 
; SDPDR2= 172224 
; SDPDOR4= 172230 
; SDPORS= 172232 
; SDPDR6- 172234 
: SDPDR7 = 172236 
SIPARO= Ze 
;SIPAR1= 172242 
; SIPAR2= 172244 
SIPAR3= 172246 
; SIPAR4= 172250 
SIPARS= 172252 
SIPAR6= 172254 
;SIPAR7= 172256 





;PATTERN PROGRAM 


PATTERN PROGRAM S 


; PATTERN PROGRAM 
;PATTERN PROGRAM 


ey _ 


;PATTERN PROGRAM SPACE 


;PATTERN 


PROGRAM SPACE 


"D" PAGE Meer tein REGISTERS 


N PROGRAM SPACE 
;PATTERN PROGRAM SPACE 
;PATTERN PROGRAM SPACE 
;PATTERN PROGRAM SPACE 
;PATTERN PROGRAM SPACE 
pad os PROGRAM SPACE 
ATTERN PROGRAM SPACE 

;PATTERN: PROGRAN SPACE 


;*SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 


ee ee” PAGE DESCRIPTOR REGISTERS 


dicetecee (0 PAGE ADDRESS REGISTERS 


;TEST AREA 
;TEST AREA 
;TEST AREA 
;TEST AREA 


SEQ 0100 | 


CVMJAAO MSV11-J MEMORY DIAG. 
MEMORY 


DEF INE 


ae mmm es 


— mn la ——— eee 
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Y MANAGEMENT REGISTERS 


172260 


172272 
172274 
172276 


172300 


172340 


172350 
172352 
172354 


172360 


172374 
172376 


;*SUPERVISOR “D” PAGE ADDRESS REGISTERS 
172260 


SDPARO= 
; SDPAR1= 172262 
; SDPAR2= 172264 
; SDPAR3= 172266 
; SDPAR4= 172270 
SDPARS= 172272 
SDPAR6= 172274 
SDPAR7= 172276 
;*#KERNEL "I" PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 
;KIPDR1i= 172302 
;KIPDR2= 172304 
;KIPDR3= 172306 
;KIPDR4= 172310 
;KIPORS= 172312 
;KIPDR6= 172314 
;KIPDR7= 172316 
;*KERNEL "D" PAGE DESCRIPTOR REGISTERS 
;KDPDRO= 172320 
;KDPOR1= 172322 
;KDPDR2= 172324 
;KDPOR3= 172326 
;KDPDR4= 172330 
;KDPDR5= 172332 
;KDPDR6= 172334 
;KDPDR7= 172336 
;*#KERNEL "I" PAGE ADDRESS REGISTERS 
KIPARO= 
;KIPARI= 172342 
;KIPAR2= 172344 
;KIPAR3= 172346 
"KIPAR4= 172350 
KIPARS= 172352 
KIPAR6= 172354 
;KIPAR7= 172356 
;*KERNEL “D" PAGE ADDRESS REGISTERS 
KDPARO= 
;KDPAR1= 172362 
;KDPAR2= 172364 
; KDPAR3= 172366 
;KDPAR4= 172370 
;KDPARS= 172372 
‘KDPAR6= 172374 
KDPAR7= 172376 


—me 


SEQ 0101 


— << ee 


CVMJAAO MSV11-J MEMORY DIAG. 
‘DEFINE Q-BUS MAP REGISTERS 


—— ita el “a ae a. ae 


170200 
170202 
170204 


;MAPL32 
;MAPH32 


L8 


MACRO VOS5.01b Friday 15-Feb-85 16:10 Page 102 


-SBTTL DEFINE Q-BUS MAP REGISTERS 


;*THE LOWER 16 BITS 


OF THE MAP REGISTERS ARE LABELED ‘MAPLXx’ 


ae 6 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPHXx' 


170350 
170352 


SEQ 0102 — 


CVMJAAO MSV11-J MEMORY 
| DEF Q-BUS MAP REGISTERS 


000174 
000176 


172100 


060000 
157776 
040000 


DIAG. 


M8 
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an 
WN . 
nuenennenwue 


170376 


-SBTTL DEFINE SOFTWARE SWITCH & DISPLAY REGISTERS 
DISPREG=174 
SWREG= 176 


.SBTTL DEFINE CONTROL STATUS REGISTERS 
CSRADD=172100 


.SBTTL DEFINE PARAMETERS 
FIRST=60000 ;START OF THE 16K TEST 4AM AREA 
LAST=157776 ;END OF THE 16K TEST PATTERN A 
SIZE=40000 


REA 
;SIZE OF THE 16K TEST PATTERN AREA (FOR SOB INSTRUCTIONS) 


A A 


i ee 


| 
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DEFINE PARAMET 

4365 -LIST MD ;BE NICE TO SEE MY DEFINITIONS 
-SBTTL MACRO FATAL 

rtrd $ SOSSOSSSOSSSOSSEOS OSSD FATAL *e¢ee0040000004¢0¢8¢44008008 

4369 FATAL IS USED TO REPORT FATAL ERRORS CERRORS THAT PREVENT 

pt th ; THE PROGRAM FROM CONTINUING). 

4372 s Sosonronsenonsnooeencosoesosososeeceooseseesseosess 

4373 -MACRO FATAL ARG ;**eMACROs*eMACRO«*eMACROses 

4374 -NLIST 

4375 ._DSABL CRF 

4376 -TIF DF LST$$ .LIST ME 

4377 -ENABL CRF 

4376 -LIST 

4379 INC FATAL$ ;SET FATAL INDICATOR 

4380 ERROR «ARG 

4361 .OSABL CRF 

4382 -1IF OF LST$$ .NLIST ME 

4383 -ENABL CRF 

4384 -ENDM FATAL 

4385 

4386 .SBTTL MACRO TYPE 

4387 -MACRO TYPE ARG 

4388 -NLIST 

4389 -DSABL CRF 

4390 -TIF DF LST$$ .LIST ME 

4391 -ENABL CRF 

4392 -LIST 

4393 .IF B ARG 

4394 TYPEIT 

4395 . IFF 

4396 TYPEIT ,ARG 

4397 . ENDC 

4398 -DSABL CRF 

4399 -IIF DF LST$$ .NLIST ME 

4400 -ENABL CRF 

4401 -ENDM TYPE 


SEQ 0104 


=e ee 


mn eee ee 


ee ee ee 
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MACRO SEQ 0105 | 





——— 


4404 : MACRO NEWTST 

4405 on eg ee eg al NEWTST eeeeseseeecesececeeees 

4407 +a ie IS USED AS THE FIRST INSTRUCTION OF A TEST. 

4408 31) GENERATE A TEST NUMBER FOR THE LABEL OF THIS TEST 

4409 32) PUT STARS BEFORE AND AFTER A MESSAGE 

4410 ; ARGUMENTS 

4411 31) ASCII -- THIS IS THE MESSAGE THAT WILL APPEAR 

<aif 5 ON THE LISTING 

44) 3:2) ICOUNT -- IF NON-BLANK AND BIT 11 OF $SWR = 1 IT WILL BE 

444 ; THE NUMBER OF ITERATIONS TO MAKE ON THIS TEST 

4415 33) RETURN -- IF NON-BLANK WILL BE THE ADDRESS TO 

4416 ; WHICH THE NEXT SCOPE STATEMENT WILL 

4417 ; LOOP BACK TO. 

4418 34) COMAND -- IF NON-BLANK WILL BE THE FIRST 

4419 $ INSTRUCTION OF THE TEST 

4420 ; IF BLANK SCOPE WILL BE THE 

4421 ; FIRST INSTRUCTION 

4422 Pritt iiit it itiiiiiitii titi iitititititiiiiiitiiitiiii | 
. MAC NEWTST ASCII, ICOUNT,RETURN, COMAND 

4424 $STN=1 

4425 $NWTST=0 

4426 -NLIST MC 

4427 IF B < 

rr + $ al EST \$TN, <ASCII>, SCOPE 

4430 $$NEWTEST \$TN, <ASCII>, <COMAND> 

4432 “NLIST 

itt tt te 

4435 IF NE 4000E$SWR 

4436 .IF NB IC 

4437 -IF LE <ICOUNT-1> 

ret + er #1,$TIMES 7:00 1 ITERATION 

anal MOV #ICOUNT,$TIMES ;;D0 ICOUNT ITERATIONS 

444) ; 

4442 .END 

4443 .IF NB RETURN 

4444 MOV @RETURN,$LPADR ;;SET SCOPE LOOP ADDRESS 

4445 -ENDC 

aaa? NLIST 

sts uy 

4450 -NLIST ME 

445) .ENDM NEWTST 


SE - 


———— 
ET LT 7 


eee ee eee + ee 


CVMJAAO MSV11-J MEMORY DIAG. 


MACRO 
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$$NEWTEST 
.SBTTL MACRO £$$NEWTEST 
-MACRO $$NEWTEST A,ASC ,COMND 
. IRP ASCI,<ASC> 
.IF EQ $NWTST 
$NWTST=1 
.SBTTL T’'A’ ASCI 
-NLIST 
LIST WME 
.LIST 
Petit iti tt ttt itt ttt titi tii titi ttit iii iitiititiiiiititittititiiiiiiitititit itt it? 
;#TEST A ASCI 
.IFF 
ASCI 
.ENDC 
tT ti tit it tit itttit itt titititititititititittititiititititiitiiitititiiitii ii itty 
TST'A: 
-NLIST ME 
$TN=$TNel 
-ENDM $$NEWTEST 


.SBTTL MACRO £SUBTST 
peeeekeeeaeeesse SUBTST ee eee eee e eee eek eee ke ee ee eee et 


; THIS MACRO WILL FORMAT A SUBTEST HEADING WITH STARS 
;A .SBTTL WILL BE FORCED € .NLISTED FOR THE TABLE OF CONTENTS. 


SEQ 0106 


* ARGUMENT : : 
:1) TXT -- THIS IS THE MESSAGE THAT WILL APPEAR IN THE TABLE OF CONTENTS & LISTING. 
EXAMPLE : SUBTST <<THIS IS A FUN SUBTST>> 


s paseeonesnenbsasesnensedobessetocescessooessoesosesese 
SUBTST ASCII 
<ASCII> 
MC 
SUBTST 
MACRO $SUBTST 
$SUBTST ASC 
ASCI,<ASC> 
ASCI 
.NLIST 
-LIST ME 
; *SUBTEST ASCI 
.ENDM 
Trttitit iit t tit ttt iti ttt iti tit tititititiiitiitititititiititiiiiiiiiiitiir iii i ss 
NLIST ME 


"ENDM  $SUBTST 


eS _ Ee —_— ee 


pee eee eee 
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MACRO TYPOCT SEQ 0107 | 


4509 _SBTTL MACRO  TYPOCT 
ante seeeeeeecesececeecesed TYPOCT eeeeeeeeeeeeceeeeens 

4512 :TYPOCT IS USED TO CHANGE A BINARY NUMBER 

4515 TO A 6 DIGIT OCTAL NUMBER AND TYPE IT 

4515 : ARGUMENTS : 

4516 : 

4517 31) NUM THE NUMBER TO BE TYPED 

4519 52) REMARK ALLOWS A COMMENT TO BE MADE 

4521 ;ROUTINES REQUIRED 

4525 51) CONVERT BINARY TO OCTAL AND TYPE (.$TYPOCT) 

4525 32) TYPE AN ASCIZ STRING (.$TYPE) 

4527 “EXAMPLES: 

4529 51) TYPOCT HILMT,<TYPES THE CONTENTS OF HILMT> 

4530 ;2) TYPOCT #5,.<TYPES ' 000005’ > 

saat STTTTTTCTTTTTCTTTTTTTECTTTTTTTTTTCTTTT TC TTT TTT TTT TT TTT TTT TTT Tee 
4534 .MACRO TYPOCT NUM,REMARK 

4535 “NLIST 

4536 “DSABL CRF 

4537 “TIF OF LST$$ .LIST ME 

4538 “ENABL CRF 

4539 "LIST 

4540 MOV NUM, -(SP) ;;SAVE NUM FOR TYPEOQUT 

4541 .1IF NB <REMARK>, ; sREMARK 
4542 TYPOC ;:GO TYPE--OCTAL ASCIICALL DIGITS) 
4543 .DSABL CRF 

4544 "TIF OF LST$$ .NLIST ME 

4545 -ENABL CRF 


C 
4546 -ENDM TYPOCT 


=—— i ——— e+ ee SS eT 


2 I - 


CVMJAAO MSV11-J MEMORY DIAG. 
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.SBTTL MACRO #£TYPOCS 
s sessssosesososeseses TYPOCS teeeeeeeeeeeeeeeeens 


‘TYPOCS IS USED TO CHANGE A BINARY NUMBER TO AN OCTAL 
NUMBER AND TYPE 1 10 6 DIGITS 
: WITH OR WITHOUT LEADING ZEROS. 
S ARGUMENTS : 

1) NUM NUMBER TO BE TYPED 

:2) REMARK ALLOWS A COMMENT TO BE MADE 


3) N NUMBER OF DIGITS (1 TO 6) TO BE TYPED 
:4) Z BLANK=SUPPRESS LEADING ZEROS (TYPES SPACES) 
: NON-BLANK=TYPE LEADING ZEROS 


s ROUTINES REQUIRED 

1) CONVERT BINARY TO OCTAL AND TYPE (.$TYPOCT) 
2) TYPE AN ASCIZ STRING (.$TYPE) 

; EXAMPLES : 

31) TYPOCS #12345,<TYPES "5">,1 


32) TYPOCS #004, <TYPES "04">, 2, x 
33) TYPOCS #004,<TYPES “ 4">,2 


; 
EEE EKESSEERSES ESSERE EKER ERASER EKERESEREREREREEKERELK 


-MACRO TYPOCS NUM,REMARK,N,Z 
-NLIST 

._DSABL_ CRF 

-TIF DF LST$$ .LIST ME 

-ENABL CRF 

-LIST 


MOV -(SP) ;;SAVE NUM FOR TYPEOUT 


fe? 4 NB CREMARICD ; sREMARK 


;;GO TYPE--OCTAL ASCII 
‘BYTE N ;;TYPE N DIGIT(S) 
‘BYTE 6 ::TYPE 6 DIGITS 


‘BYTE 1 ;;TYPE LEADING ZEROS 
-BYTE 0 ;;SUPPRESS LEADING ZEROS 


.DSABL CRF 
-ITIF DF aes’? -NLIST ME 


-ENABL CRF 
-ENDM TYPOCS 


SEQ 0108 


4605 


CVMJAAO MSV11-J MEMORY DIAG. 
MACRO 


TYPDEC 


ao ee ee” - - - — =e ae eo 
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-SBTTL MACRO TYPDEC 
s soessesseesseesosess TYPDEC *teeeeeeeeeeeeeeees 


‘TYPDEC IS USE TO CHANGE A BINARY NUMBER TO A SIGNED 
DECIMAL NUMBER AND TYPE IT REPLACING LEADING ZERO 
, WITH SPACES. 

;NOTE: IF THE NUMBER IS NEGATIVE A 
MINUS SIGN WILL BE TYPED. 

* ARGUMENTS : 

;1) NUM NUMBER TO BE TYPED 


'2) REMARK ALLOWS A COMMENT TO BE MADE 

‘ROUTINES REQUIRED 

(1) CONVERT BINARY TO DECIMAL AND TYPE (.$TYPDEC) 
'2) ‘TYPE AN ASCIZ STRING (. $TYPE) 

‘ EXAMPLES 


; 
31) TYPDEC SIZE,<TYPE THE CONTENTS OF SIZE> 
32) TYPDEC #-10.,<TYPE A MINUS TEN> 


o 
FEEEEEKEKEKEREE EKER SERERE SEE EE EEE EEESEESEEESRESESEESEEREEEERESE 


-MACRO TYPDEC NUM,REMARK 


NLIST 
.DSABL_ CRF 
TIF DF LST$$ .LIST ME 
-ENABL CRF 
-LIST 
MOV NUM, - CSP) ;;SAVE NUM FOR TYPEOQUT 
.TIF NB <REMARK>, ; sREMARK 
TYPOS ;;GO TYPE--DECIMAL ASCII WITH SIGN 
.DSABL_ CRF 
-ITIF OF LST$$ .NLIST ME 
-ENABL CRF 
-ENDM TYPDEC 


SEQ 0109 


_-—-— - 


—_— eee ew aT owe —_—_———— — <r ee eee Steel _— = -  — 
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4647 .SBTTL MACRO BMOV 
see 5 *#+o04046646444444% BMOV CeEEEREEREREEE EERE EERE RE EES 

4650 ; THIS MACRO MOVES A BLOCK OF DATA. 

4652 ; ARGUEMENTS : 

4654 31) FROMHERE THE FIRST ADDRESS OF THE SOURCE BLOCK. 

4656 32) TOHERE THE FIRST ADDRESS OF THE DESTINATION BLOCK. 

4657 : IF BLANK THE 1ST ADDRESS OF THE USER INSTRUCTION 
4658 : PAR'S IS USED (FASTCITY). 

4660 3) SIZE THE SIZE OF THE SOURCE BLOCK. 

4661 IF BLANK A 16 WORD TRANSFER IS ASSUMED. 

4662 "WHY DEFAULT TO 16 WORDS?” YOU ASK! 


a anae « & THAT'S WHERE I INTEND T0 MOVE LOTS 


4663 : "BECAUSE THAT'S HOW MANY WORDS TO THE USER PAR 
, STUFF.” I REPLY! 


rr F SCT T TT TT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT 
4669 -MACRO BMOV FROMHERE , TOHERE , SIZE 
4670 .IF B TOHERE 

4671 -NLIST 

4672 . DSABL CRF 

4673 -IIF DF LST$$ .LIST ME 
4674 . ENABL CRF 

4675 .LIST 

4676 JSR RS,BLOCK1 

4677 FROMHERE 

4678 . DSABL CRF 

4679 .LIF OF LST$$ .NLIST ME 
4680 . ENABL CRF 

4681 .MEXIT 

4682 - ENDC 

4683 .IF B SIZE 

4684 »NLIST 

4685 . DSABL CRF 

4686 LIF DF LST$$ gh ast ME 
4687 - ENABL CRF 

4688 LIST 

4689 JSR RS,BLOCK2 

4690 TOHERE 

4691 FROMHERE 

4692 . DSABL CRF 

4693 LIF DF LST$$ aan ME 
4694 - ENABL CRF 

4695 .MEXIT 

4696 . IFF 

4697 .NLIST 

4698 . DSABL CRF 

4699 .IIF DF LST$$ ghts? ME 
4700 . ENABL CRF 

4701 LIST 

4702 JSR R5,BLOCK3 

4703 SIZE 


o A LLL LL DLA LE 4 


 —— me Ml —mumauuautae ea el ae ae 
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‘MACRO 8 BMOV SEQ 0111 
4704 TOHERE 
4705 FROMHERE 
4706 . DSABL CRF | 
4707 .ITIF DF LST$$ .NLIST ME 
4708 . ENABL CRF 
4709 -ENDC 
4710 -ENDM BMOV 


_CVMJAAO MSV11-J MEMORY DIAG. 
“MACRO MAP 


| 


— ——— mummies ae 


wee ———— 0 rr ee 
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-SBTTL MACRO MAP 


skeeeeeeeeeseseses MAP 260800080008 Se SERRE EERE RE 


; THIS MACRO MAPS A MEMORY BANK (16K) INTO THE 


TEST PATTERN AREA (SUPERVISOR VIRTUAL (60000-157777)). 
; ARGUEMENTS: 


BANK THE BANK OF 16K WORDS 70 BE MAPPED. 
THERE ARE 120 BANKS OF 16K WORDS 


;EXAMPLES 


MAP LOC 
MAP #28. 


.MACRO MAP BANK 
PUSH R3 

-DSABL_ CRF 

.IIF OF LST$$ .LIST ME 
-ENABL CRF 

-LIST 

.IF B BANK 

MOV #200 ,RS 

ae 

MOV BANK ,R3 

. END 

CALL MAPPER 

.DSABL_ CRF 

-ITIF OF LST$$ .NLIST ME 
.ENABL CRF 


-ENDM MAP 


sLOCATION “LOC” CONTAINS THE # OF THE BANK TO MAP 
;BANK 34 COCTAL) WILL BE MAPPED 


EEEKEKEEEEERESESE EERE EREREREEEEEEEEEEEEKEKEEESESE 


SEQ 0112 | 


| 
| 
| 


CVMJAAO MSV11-J _ DIAG. 


MACRO SUPERVIS 
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eecsnmnemnnaneass TUE Setbeeaneceseveceenes 
THIS MACRO SWITCHES TO SUPERVISOR MODE. 

; ARGUEMENTS:: NONE . 
 Coeeeeeeenecaceeecaseaneeeesaseneceseeeeceeesaeees 


.MACRO SUPERVISOR 

CRF 

-IIF OF LST$$ .LIST ME 
CRF 


BIS #B1714,,PSW ;GO TO SUPERVISOR MODE 
-IIF OF LST#$ -NLIST ME 
SUPERVISOR 


. SB MACRO USER 
seekkeeeeeeeekeeese USER eee k ee eee eee deca ee eee eeees 


; THIS MACRO SWITCHES TO USER MODE. 
;ARGUEMENTS: NONE. 
STCCTTTTTTT TTT CT TTT TTT CCTTT TTT TC TTT TTT TT TTT TTT TT TT 


.MACRO USER 

CRF 

“TIF OF LST$$ .LIST ME 
CRF 


BIS ¢81715!B1T14,PSu ;GO TO USER MODE 
-IIF DF LST$$ .NLIST ME 
CRF 


"ENDM USER 


SEQ 0113 © 


——— eee 


EE SSS = - = - —s - — -— 
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'MACRO TESTAREA SEQ 0114 
4795 -SBTTL MACRO TESTAREA 
4796 ;seeecesesesesaszee TESTAREA teeeecceececcceseceesces 
479 , 
pit ; THIS MACRO SWITCHES TO THE SPECIFIED TEST MODE. 
4800 ;ARGUEMENTS: NONE. 
aaet , Soosneseoscoocoosoessoceeoesossosseeseoseeescesees 
480 
4804 -MACRO TESTAREA 
4805 -NLIST 
4806 -DSABL CRF 
4807 .ITIF DF LST$$ .LIST ME 
4808 -ENABL CRF 
4809 -LIST 
4810 BIS TESTMODE ,PSW ;GO0 TO SYSTEM TEST MODE 
4811 -OSABL C 
4812 .ITIF DF LST$$ .NLIST ME 
4813 ENABL CR 


‘ F 
4614 .ENDM TESTAREA 


—————— 


—_ -_ * eee ew mn ee — —— . . _ — <= 
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MACRO SET4 & RES4 SEQ 0115 


4817 ‘A .SBTTL MACRO £SET4 € RES4 

<ais ;eeeeeeceeeeceaeee SETS € RES4 steaeeecceceeeeaeees 

Prt} ; THESE MACROS SET & RESTORE VECTOR 4( TIMEOUT TRAP ) 

<a58 j IN IT'S RESTORED MODE TRAPS ARE REPORTED AS SUCH. 

4855 ; ARGUEMENTS : LOC ; THE LOCATION TO VECTOR TO CONLY USED IN “SET4” NOT “RES4”) 
4826 :1 USE THE SET4 AND RES4 MACROS AROUND CODE THAT I EXPECT TO TRAP TO 4 
4827 LIK E LOOKING FOR ALL POSSIBLE CSR‘S AND ETC. WHENEVER CODE a NOT 
4828 ;SURROUNDED BY SET4 AND RES4 THEN ANY TRAPS TO 4 WILL CAUSE AN ERROR 
4829 ;PRINTOUT THAT SAYS “UNEXPECTED TRAP TO 4” AND ALL THE ASSOCIATED REGISTER JUNK 
rr tf AKA RAAEAEA AREER AERA E EERE REE EERE REE EEE 

4832 -MACRO SET4 ARG 

4833 -NLIST 

4834 -DSABL CRF 

4835 .IIF DF LST$$ .LIST ME 

4836 -ENABL CRF 

4837 .LIST 

4838 MOV ARG ,4 

4839 -DOSABL CRF 

4840 IIF DF LST$$ .NLIST ME 

4841 ENABL CRF 

4842 NDM SET4 

4843 

4844 MACRO RES4 

4845 NLIST 

4846 DSABL CRF 

4847 IIF OF LST$$ .LIST ME 

4848 ENABL CRF 

4849 LIST 

4850 MOV #TIMEOUT ,4 

4851 CMP #5 ,,PROTYP :1S THIS AN 11/83/84 ? 

4852 BNE 101$ ;BRANCH IF NOT 

rit — CLR CPUERR ;CLEAR OUT THE CPU ERROR REGISTER BITS 
4855 ; THAT A EXPECTED TRAP COULD HAVE SET 
4856 DSABL CRF ‘ 
4857 IIF DF LST$$ .NLIST ME 

4858 -ENABL CRF 

4859 ~ .ENDM RES4 


me ead “Ala al ae a ae 
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| MACRO OLEFT 
4862 -SBTTL MACRO DLEFT 
ae; 3 oeeeeeseseseseses DLEFT £46666606060460440044040406 
ror ; THIS MACRO DOES A DOUBLE WORD LEFT SHIFT 
thee ; ARGUEMENTS: LOC ; THE LOCATION TO BE SHIFTED LEFT (CARRY TO LOC+2) 
r+ +: 5 EEE EEE EEE EEE EEEEEEEEEESEEEEEESEEESAEEESEEESE ES EEE 
4871 MACRO ODOLEFT ARG 
4872 -NLIST 
4873 -DSABL CRF 
4874 -IIF OF LST$$ .LIST ME 
4875 -ENABL CRF 
4876 .LIST 
4877 ARG 
4878 ARG+2 
4879 OSABL CRF 
4880 IIF DF LST$$ .NLIST ME 
4881 ENABL CRF 
4882 ENDM DLEFT 
4883 NLIST MD ;DON'T NEED TO SEE THEM ANY MORE 
4884 5 EKKEEERERESESESSAEEESEEEKERESREEEEESEEESREEREEEEEEESE 
4885 -SBTTL ABORT ROUTINE FOR ORION UFD MODE (VMK) 
Pht jE EREEEREREAESEEEEEEEEEESESEEEEERERESEERS 
4888 000000 105737 056732 ABORT: TSTB $D0DW7 ; TEST FOR USER FRIENDLY MODE 
4889 000004 001420 BEQ ABORT2 ;IF NOT UFD THEN CONTINUE NORMAL OPERATION 
000006 013737 003706 000030 MOV SAV30,30 ;sRESTORE EMT LOCATION (30) 
4891 000014 013737 003710 000032 MOV SAV32,32 ;sRESTORE EMT PRIORITY LOCATION (32) 
4892 000022 104042 EMT +42 ;GET = LOCATION INTO RO FROM MONIT 
4893 000024 012760 177777 000042 MOV #-1,42CRO) ;SET A -1 INTO LOCATION DRSERR IN MONITOR 
4894 000032 0137 000042 ABORT1: MOV 42,R0 ;AND PUT THE MONITOR oy ADDRESS IN RO 
4895 000036 005037 000042 CLR 42 ;CLEAR MONITOR RETURN FLAG 
4896 000042 000137 014042 JMP $ENDAD ;RETURN TO MONITOR-DO NOT PUSH STACK HERE 
akee 000046 000207 ABORT2: RTS PC : IF NOTUFD RETURN TO MAINLINE 
4899 


SEQ 0116 


‘ CVMJAAO MSV11-J MEMORY DIAG. 


‘TRAP CATCHER 


— —— al <i. cl ie a 


012737 
000137 
002000 


002626 
003670 


177777 002626 
003670 
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i TRAP CATCHER 
-WORD 0,0 
-REPT 177 ;.WGRD .+2,HALT 
-SBTTL ACT11 HOOKS 
;*THE HOOKS REQUIRED BY ACT11 ARE DEFINED AND SETUP BELOW: 
;* DEFINITIONS: 
Da 1)LOC.46 “END--OF -PASS” HOOK 
;* =ADDRESS OF END OF PASS ROUTINE 
;* MODIFIED BY ACT1i1. 
;* 2)L0C.52 PROGRAM NEEDS HOOK 
;* BIT 15=1 PROGRAM D BE POWER 
5% FAILED WHILE RUNNI 
;* =0 NO POWER FAIL 
;* BIT 14=1 PROGRAM MEMORY SIZE DEPENDENT 
;* = NOT MEMORY SIZE DEPENDENT 
:* BIT 13-1 ee REQUIRES MANUAL INTERVENTION 
; = MANUAL INTERVENTION NOT REQUIRED 
;* on BITS 12-0 MUST BE ZERO’S 
= ;;1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$E0P 
-WORD BIT4 ;;2)SET LOC.52 TO INDICATE MEMORY SIZE DEPENDANT 
.SBTTL APT11 HOOKS 
724 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
“- * ;3;FOR APT START UP 
STACK 350 RT11 CAN Ng Al Dae RUN COMMAND 
244 ;;POINT TO APT INDIRECT ADDRESS P 
— ;:POINT TO APT HEADER BLOCK 
START3: BR STARTI ;""NORMAL” START 
re START2 ;RESTART (SAVE ERROR ACCOUNTING) 
START1: CLR RESTART 
START 
START2: SET RESTART 
MOV #-1,RESTART 
JMP START 
. =STACK 


ee ee ee ee 


—_— a eed es — - 


B10 
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VARIABLES INITIALIZED 10 ZERO SEQ 0118 | 
4947 -SBTTL VARIABLES INITIALIZED TO ZERO 
4948 ;*THIS TABLE yt VARIOUS COMMON STORAGE LOCATIONS 
4949 he 94 IN THE PROGRAM 
4950 00 SCMTAG: ;:;START OF COMMON TAGS 
4951 002000 000000 DSET:0 ; FRIENDLY FLAG 
4952 002002 000000 SELONLY:0 ta ONLY BANKS MARKED BY FIELD SERVICE MODE FLAG 
4953 002004 000000 DIAGFLAG:0 ;SET FOR SHIFTING DIAGONAL TEST 
002006 000000 KAMIKAZE :0 ;SET FOR KAMIKAZE MODE TESTING 
4955 002010 000000 SKIPKAMI:0 ;USED TO SKIP RESTORING KAMIKAZE MODE WHEN MODIFIED 
;NEXT TWO BYTES ARE DISPLAYED IN Ve DISPLAY REGISTER | 
4957 00201 000 $PATMAR: .BYTE 0O PATTERN NUMBER 
00201 000 $BANK: .BYTE 0 ' S BRNK € SIGN 
4959 oogets 000 SERFLG: .BYTE 0 ; CONTAINS ERROR FLAG 
4960 002015 000 SITEMB: .BYTE 0 ;;CONTAINS ITEM CONTROL BYTE 
4961 002016 000000 LAST :.WORD 0 sNUMBER OF ERRORS ON LAST PASS 
4 002020 000000 ERRPC: .WORD 0O ‘ CONTAINS PC OF ERROR FOR TYPEOUT 
4963 002022 0900000 BADPC: .WORD 0 ;CONTAINS PC OF ERROR 
4964 002024 000000 ERRSP: .WORD 0 ;CONTAINS SP OF ERROR FOR TYPEOUT 
4965 002026 000000 BADSP: .WORD 0 ;CONTAINS SP OF ER 
4 002030 000000 ERRPSW: .WORD 0O ;CONTAINS PSW OF ERROR FOR TYPEOUT 
4967 002032 900000 BADPSW: .WORD 0 ;CONTAINS PSW OF ERROR 
968 002034 000000 ADDRESS:.WORD 0 ;;CONTAINS ADDRESS OF ‘BAD’ DATA 
969 002036 000000 PADDRESS:.WORD 0 ;ADDRESS OF PARITY ERROR 
4970 002040 000000 PHYADD: .WORD 0, ;22 BIT PHYSICAL ADDRESS 
1 00 000000 GOOD: -WORD 0 ;:;CONTAINS ’GOOD' D 
4972 002046 000000 GOOD2: .WORD 0 ;;CONTAINS ‘GOOD2’ DATA 
4973 902050 0900000 GOOD3: .WORD 0 ;:;CONTAINS ‘GOOD3’ DATA 
4974 002052 000000 BAD: -WORD 0 ;;CONTAINS ‘BAD’ DATA 
4975 002054 000000 BAD2: -WORD 0 ;;CONTAINS ‘'BAD2' DATA 
4976 002056 000000 BAD3: -WORD 0 ;:;CONTAINS ‘BAD3' DATA 
4977 002060 000000 BADXOR: .WORD 0 ; G BAD = BAD BIT 
4978 002062 000000 $AUTO: .WORD O ;;AUTOMATIC MODE i FOR APT,ACT, & XXDP 
4979 002064 000000 FATAL$: .WORD 0 ;FATAL ERROR INDICAT 
4980 002066 000000 PERR: .WORD 0 sUSED TO SKIP ERROR MESSAGE IN "“S$ERRGEN” 
4981 002070 000000 T: O -EXISTANT MEMORY COUNTER (HOLES) 
002072 000000 PARCNT: 0 ‘PARITY ERROR COUNTER 
4983 002074 000000 PATERR: 0 ;PATTERN ERROR COUNTER 
002076 000000 NOPAR: 0O ;NO PARITY ERROR MODE INDICATOR 
4985 002100 000000 NONEM: 0 ;NO NON-EXISTANT MEMORY CHOLES) MODE INDICATOR 
4986 002102 000000 BANK: 0 ;MEMORY BANK UNDER TEST 
4987 002104 000000 BANKINDEX:0 ;USED TO INDEX INTO CONFIG TABLE 
0021 000000 CPUBIT : 0 sCONTAINS 1 BIT TO oid CPU TO CONFIGURATION TABLE 
4989 002110 000000 ; MEMORY UNDER TEST FLAG 
00211 000000 PATTERN: - ;PATTERN NUMBER UNDER TEST 
4991 002114 000000 KPFLAG: 0 : BANK IS PROTECTED REGION OF ECC 
4992 002116 900000 ACFLAG: D «OO ; BANK CAN BE ACCESSED BY THIS CPU 
4993 002120 000000 MKFLAG: .WORD 0 sIF SET INDICATES MSV11-J OR MF 11S- K UNDER TESTeesesecese ? 
4994 002122 000000 PFLAG: .WORD 0 : BANK IS IN PROGRAM SPACE 
4995 002124 000000 RRFLAG: .WORD 0 ; BANK IS WHERE any gl RELOCATION IS REQUIRED TO TEST 
996 002126 000000 RLFLAG: .WORD 0 sPROGRAM IS RELOCATED FLAG 
4997 002130 000000 BMFLAG: .WORD 0 ; “BANK 18 IDENTIFIED AS. BAD MEMORY” FLAG 
4998 002132 000000 EQFLAG: .WORD 0 ; “BANK HAS EQB MEMORY” FLAG 
4999 002134 000000 TMFLAG: D Oo ;"TYPE OF MEMORY TO TEST” FLAG; 0 = PARITY, 1 = ECC 
5000 002136 000000 INTFLAG: .WORD 0 : “BANK IS INTERLEAVED” FLAGSeeeeeeeeeereceseeeeseseeese 2 “ef 
5001 002140 000000 INT64K: .WORD 0 ; "BANK IS 64K INTERLEAVED’ FLAGseesasesececesesessecece ? ee | 
$002 002142 000000 PMEMFLG: . WORD 0 : “MEMORY UNDER TEST IS A MSV11-J” FLAG 
5003 002144 000000 ABORTFLAG: .WORD O * ABORT OCCURED” FLAG | 
} 


5011 002162 
5012 64 


5052 06 
5053 002310 
5054 312 
5055 002314 
5056 002316 
5057 002320 
5058 002322 
5059 002324 
5060 002326 


Py MSV11-J MEMORY DIAG. 
ARIABLE 
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INITIALIZED TO ZERO 


SEQ 0119 


CTLKVEC:.WORD 0 ;HOLDS OLD KERNAL STACK POINTER IN CASE OF CNTL/K 
CSR: .WORD 0 ;DATA TO OR FROM CSR 
SRNO: O ;CSR ADDRESS NUMBER (4 LSB‘S) 
SAVCSR: .WORD : ;LOCATION TO SAVE CSRNO DURING FS COMMAND 
OLDCSR: .WORD ;0LD CSR NUMBERCUSED IN INH PTR TEST) 
; THESE LOCATIONS STORE GPR'S DURING SUPERVISOR TESTS 
SUPDRO: 0 
SUPDR1: 0 
SUPDR2: 0 
SUPDR3: O 
SUPDR4: 0 
SUPDRS: O 
SUPDRE6: O | 
DUMMY: 0O ;DUMMY LOCATION FOR ADDRESS PASSING 
iTHESE LAT EONS STORE GPR'S €& PSW DURING DETAILED ERROR PRINTOUTS 
DETRi: O 
DETR2: O 
TR3: O 
DETR4: O 
DETRS: O 
TSP: O 
DETPSW: 0 
DETFLAG:0O ;sDETAILED REPORT FLAG 
CONTFLAG:0O ;CSR‘'S HAVE BEEN TESTED FLAG 
TOTCSRS:.WORD 0O 31 . PER EXISTING CSR, EG- 
;CSR O REPRESENTED BY BIT a>, EC. 
CSRFIRST:.WORD 0 :FIRST ADDRESS UNDER CONTROL OF THIS CSR 
CSRLAST: .WORD 0O ; 
CSRFBANK: .WORD 0 ; 
CSRLBANK:.WORD 0O ; 
CSRINT: .WORD O : 
SPLTCSR: .WORD 0O : 
000000 DATBUF: .WORD 0,0 ;TWO WORD DATA BUFFER 
000000 TSTDAT: .WORD 0,0 :TWO WORD TEST DATA 
000000 EMSK: .WORD 0,0 : TWO WORD SINGLE BIT ERROR a 
000000 DBEMSK: .WORD 0,0 ;TWO WORD DOUBLE BIT ERROR MASK 
UPDO :.WORD O ; ADDRESS OF SUBROUTINE TO EXECUTE IN SUPERVISOR MODE 
PASFLG: .BYTE 0 ;LOCAL LOOP PASS CONTROL 
UPPFLG: .BYTE 90 ;LOCAL LOOP PASS CONTROL 
PASSNO: .WORD 0 AL LOOP PASS ROL 
SAV4: -WORD 0O ;USED TO SAVE KERNAL PAR 5 331.L.C.;REV 
SAVPAR: .WORD 0 ;USED TO SAVE KERNAL PAR 5 
Sa -WORD 0O 3 XX TOR RETURN ADDRESS 
L -WORD O ;RET TO MONITOR FLAG 
REALPAT:.WORD 0 ;REAL PATTERN UNDER TEST 
OLDCACHE: .WORD 0 ;BACKED UP VALUE OF CACHE ee REGISTER 
PARTHERE: .WORD 0 ;PARITY TRAPS SOMETIMES GO TO ADDRESS STORED HERE 
FSSTACK: .WORD 0O STACK SAVED HERE IF IN he SERVICE MODE 
NEWBANK: .WORD 0 USED FOR RELGCATION TO A NEW BANK 
SOURCE: .WORD 0 SOURCE OF DATA WORDS FOR CHECKBIT GENERATION SUBROUTINE 
CHECK: .WORD 0 ;CHECKBITS TO BE LOADED INTO CSR 
CBITS: .WORD 0 ;CHECK BITS TO BE 
MASK: -WORD 0O ;BIT MASK FOR CSR | 
CSR1S: .WORD 0 ;CSR ALL 1'S PATTERN 
BITNO: .WORD 0O BIT POINTER 
PCBUMP: .WORD 0 ;VALUE TO BUMP THE PC BY TO RECOVER AFTER A PARITY TRAP | 
i 





5061 002330 


5108 002462 
70 


ey MSV11-J MEMORY DIAG 
ARTABLES 
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INITIALIZED TO ZERO 


000000 
000000 


000000 
000000 


—— ee . _ _ 


D10 





-WORD 0 ;HOLDS ADDRESS 
CSRINFO:0,0,0,0,0,0,0,0 ;USED TO STORE INFORMATION ABOUT THE 16 


0,0,0,0,0,0,0,0 sPOSSIBLE CSR’S 


SEQ 0120 

CSRINC: .WORD 0 ;VALUE TO INCREMENT noone ss BY TO REMAIN IN THE SAME CSR 
CSRLOOP: .WORD 0 ;LOOP CONTROL FOR CSR TESTING 
SUCCESS: .WORD 0 1 SET BY SUCCESSFULL TASK OR SUBROUTINE , 
ZEROS: .WORD 0 FOR AID IN "MOV" INSTRUCTIONS 
TIME -WORD 0 SECONDS THAT BATTERIES SHOULD LAST : 
SKIPMK: .WORD 0 ;FLAG TO SKIP MKCONTROL ptt 
NULLFLAG: -WORD 0O ;SET WHEN RUNNING NULL PATTERNS 
QVFLAG: 0 :FLAGS QUICK VERIFY PASS UNDER APT, ACT, OR XXDP CHAIN MODE 
ACTFLAG: 0 : FLAGS ACT AUTOMATIC MODE PROGRAMMING RULES 
APTFLAG:0O ‘FLAGS APT AUTOMATIC MODE PROGRAMMING RULES 
XXDPCHAIN: 0 LAGS XXDP CHAIN MODE PROGRAMMING RULES i 
:NOTE : THESE TWO BYTES MUST STAY’ TOGETHER 
$NULL .BYTE 0 ONTAINS NULL CHARACTER A. FILLS 
sFILLS BYTE 0 : CONT AINS # OF FILL CHARACTERS 
$TPFLG Mu 0 3; "TERMINAL NOT AVAILABLE” FLAG | 
$ESCAPE:0 ;;ESCAPE ON ERROR ADDRESS 

EN: 0 ;USED FOR ALTERNATE DATA PATTERNS 
STRIPES:0 ;COUNTS DIAGONAL STRIPES 
COUNT: 0 ;BACKED UP COPY OF STRIPES 
NOTAB: 0 ;NO TABLE BEING PRINTED - NOW 
BSIZE: 0O ;SIZE OF 11/45 MOS MEMORY IN K WORDSseeeeeeseeseeee 2? seeeee 
KSIZE: 0 ;SIZE OF MF11S-K MEMORY IN K WORDSsesesesseccesesese 2? seeeee | 
LSIZE: 0 ;SIZE OF MSV11-L/P MEMORY IN K WORDS 

IZE: 0O ;SIZE OF MSV11-J MEMORY IN K —— 
PSIZE: 0 ;SIZE OF Q-BUS PARITY MEMORY IN K WORDS 
T NY:0 ;FLAGS WHEN TOO MANY ERRORS HAVE BEEN PRINTED FOR A BANK 
READONLY :0 FLAG TO PATTERNS TO READ ONLY 
TESTADD:0,0 ; THE ADDRESS TO RUN CSR TESTS ON 
UNITOP: 0 ; HIGHEST ACCESSABLE BANK OF MEMORY THRU Q-BUS MAP 
STOPOK: 0 ;FLAG TO a STOPPING WITH SWITCH eS 
APTPAR: .WORD 0 ; AMOUNT OF PARITY MEMORY ACCORDING TO APT 
APTECC: .WORD 0 ;AMOUNT OF ECC MEMORY ACCORDING TO APT 

S : ;FLAG TO DISABLE FIELD SERVICE MODE 
NOERROR:0 ;"THIS IS NOT AN ERROR” FLAG 
LOADBANK : 0 ; BANK LOADERS ARE RELOCATED TO 
EMP: ;USED FOR JUNK 
QUICK: 0 ; QUICK STOP FLAG FOR APT may FAIL 
NOSCOPE :0 ;"NO SCOPE LOOP ALLOWED” F 
FSINFLAG:0O s *PTELD SERVICE - A INTERNAL INTERLEAVE” FLAG 
APTSIZE:0 T SIZING INFO FLAG 
FS7FLAG:0 TRUE WHEN IN FIELD SERVICE COMMAND 7 
CONFGERROR:0 ‘ CONFIGURATION ERROR FLAG 
I: 0 ;USED FOR GENERAL PURPOSE INDEXING 
NO22BIT:0 ; 2-BIT MODE FLAG 
NOSUPER :0 ;NO SUPERVISOR MODE FL 
ERRADD: OLDS THE CSR'S ERROR 

! 

LINK1: 0 ;USED TO HOLD LINKS TO PATTERNS WHICH | 
LINK2: 0 ;CAN EXECUTE IN THE PAR/PUR'S CR NOT 
CSRHOLD:0 ;USED TO STORE CSR VALUES FOR CSR TESTS . 
KFLAG: 0O ‘USED TO FLAG MF11S-K MEMORY TO TESTSeeesecceseseceseeceses | 


ee ee a eee 


CVMJAAO MSV11-J 
VARIABLE 


2540 
7 002542 


MEMORY DIAG 


=—"- --— —- — a 


E10 
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INITIALIZED TO ZERO 


090000 000000 
000000 


000000 
000000 


: .WORD ,0 ;POINTS TO PROGRAM 
INHECC: .WORD 
INHBANK : . WORD 
: .WORD 
$CMTGE: ;*END OF COMMON TAGS 


oo°oo 


-——— —« = 


CSR 
;FLAGS INHIBIT ECC TESTS ON RELOCATION 


SEQ 0121 


~———— oo 


- —— = ——_—— 


enelieenetll etna 
ee - 


MVuMuuuvi 
re 


ViVimuuuYUi 
he pee 


002632 
002634 


USWMPrOw® 


PRANAAARAAAAS BB 
Besseecee 
333 3° 


S 
RAD 
Fs 


UM 
roe 


0 6 
1 Saases 


~— —<ao-~ ——— 


000377 
177400 


177570 


| Sone MSV1i1-J MEMORY DIAG. 
ARIABLES INITIALIZED TO NON ZERO 


000000 


F10 
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-SBTTL VYARIABLES 


ERRMAX : ‘ 
LASTBANK : 177 


LASTBLOCK : 177000 
: 160000 


SOBK : 
KSTACK: 
LOADHOME 


WORST: 


SEEDHI: 1 
SEEDLO: i2 


MSEEDH 


25. 
STACK 
:1 


MSEEDL: 123456 
HEADER: 


ONES: 
FLIPLOC:3 


SOF TPAT : 52525 
$LPADR: .WORD 


: WORD 
ART: 
$ERTTL: 


0 
. WORD 


0 
0 
0 


SEQ 0122 


INITIALIZED io NON ZERO 
:C CONSTANT (MOVED TO CONTRL TO TURN ON CACHE) 
;CACHE CONSTANT (MOVED TO “Tear TO TURN OFF CACHE) 


OPER 
;MAX @ OF S PER BANK WITH SW1l 
;HIGHEST BANK OF MEMORY 
s HIGHEST BANK OF MEMORY+1 CIN PAR FORMAT) 
ING ADDRESS 


FLAG 
| USED TO BUMP STACK ON FIRST CALL TO GTSWR 
;PASS COUNTER 
;SOB CONSTANT 
;STACK BEGINNING 
s;HOME BANK OF LOADERS 
;SET IF TESTING BANKS IN WORST FIRST MODE(1ST PASS) 
;WORKING SEED HI (USED FOR RANDOM NUMBER GENERATOR) 


RATOR 
;MASTER SEED LO (USED FOR RANDOM NUMBER GENERATOR ) 
USED TO PRINT HEADINGS ONLY ONCE 
FOR AID IN “MOV” INSTRUCTIONS 
; COUNTER FOR FLIPING DATA ON WORST CASE NOISE TEST 
;PATTERN FOR SOFT Ayo ete TESTS 


: CONT Ate SCOPE 

;;CONTAINS SCOPE RETURN i ERRORS 
;RESTART (START ADD 202) FLAG 
;;CONTAINS TOTAL ERRORS 


ieeeupronamsenenseaseges NOTE bie Leal e MUST STAY TOGETHER menneneeeens 


WORD 
. WORD 


3 
177400 


KGROUND PA 
; SWAPPED BAKPAT : 


REE RARE AKA E EEE R RE AEE EEE EEE EERE EERE RRA RREREREEAEEEEEEE EKER EEE EE EEE EEE 


fc: jBvTE 
[: “ASCIZ 


.ASCIT 


DSWR 
DDISP 


12 
<207><377><377> 


42?/ 
<15> 
<12> 


; ADDRESS OF SWITCH REGISTER 
: ADDRESS al REGISTER 


D BUFFER 
SeTTY PRINTER STATUS REG. ADDRESS 
ssTTY PRINTER BUFFER REG. ei 
NSERT FILL CHARS. AFTER A “LINE FEED” 
; :CODE FOR BELL 


; ;QUESTION MARK 
; ;CARRIAGE RETURN 
;;LINE FEED 


——— =e ee ee ad 


MODE FOR A PATTERN RUN 


ew ee we ie eer eee 


— emu <_< _ i _ + _*_ ease ee en | mmm me ——_— - _ _ ——_—_—— - 


G10 oe | 
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| CONFIGURATION TABLE SEQ 0123 | 
5168 _SBTTL CONFIGURATION TABLE | 
| 5169 ;CONFIG:FIRST 16K CONFIGURATION WORDS (2 EACH) | 
5170 2ND 16K CONFIGURATION WORDS (2 EACH) : 
5172 ; 200TH "16K CONFIGURATION WORDS (2 EACH) 
5174 : CONFIGURATION WORDS: | 
5175 , LOW: BIT O ERRORS PRESENT | 
5176 ; BIT 1 MEMORY SUCESSFULLY ACCESSED | 
5177 ; BIT 2-4 RESERVED 
5178 ; BIT 5 SKIP ECC LOGIC TESTS FLAG (1=SKIP) 
5179 , BIT 6 PROTECTED REGION OF ECC MEMORY 
5180 ? BIT 7 PROTECTED (PROGRAM SPACE) 
5181 , BIT 8-11 CSR CODE 


CS 
5182 ; BIT 12-15 RESERVED 


5183 ; HIGH: BIT 0-7 NUMBER OF ERRORS 

5184 ; BIT 8-10 MEMORY TYPE 

5185 ; BIT 11 RESERVED 
186 ; BIT ie RESERVED 

5187 ; BIT 13 “BACKGROUND PATTERN VALID” FLAG 

5188 ; BIT 14 BANK SELECTED FOR TEST BY FIELD SERVICE MODE 
89 ; BIT 15 LOADERS HOME BANK 

193 003670 C 


| 
i 
| 
51 
5190 002664 000201 CONFIG: .REPT 201 
5 ONFIEND: 
} 


-—— —_ @ en ee ee 


H10 
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| eheeeeeeeeeeseeeeeeees MAIN 64666666666604644664604464444% SEQ 0124 | 
5195 SBTTL «eaeeaeeeeceaeaaacacceee MAIN eee eee eee eee eee EERE EEE EES 
5196 003670 START: SUBTST <<INITIALIZE VARIABLES TO ZERO>> | 
Pitt ttt ttt ttt ttt t titi tt itt tt tt itt tt tt ttt ttt ttt ttt TTT TTT TTT TTT TTT tiLitittTitit 
; *SUBTEST INITIALIZE VARIABLES TO ZERO | 
— Petit itt ttt tt ttt titi tt tt ttt tt ttt ttt ttt ttt ttt tit ttt titi ttt TTT tititilitititt . 
5198 003670 SUBTST <<SAVEMT>> 
ett tt ttt tt tt ttt ttt ttt tt ttt ttt titi tt iti ttt tt ttt titi ti ttt ttt tit it itt ttt tt ttt titi 
; *SUBTEST SAVEMT | 
Stitt ttt itt tt tttttti tit titi ti titi ittititiitititititi iti tii tit ti tit t iti ti titi tT | 
5199 ;SAVEMT SAVES THE EMULATOR AND PRIORITY LOCATION 
asoe ;UNDER THE NAMES OF SAV30 AND SAV32. : 
5202 003670 013737 000030 003706 EMTSAV: MOV 30, SAV30 ;;SAVE EMULATOR ADDRESS 
5203 003676 013737 000032 003710 MOV 32,SAV32 ;;SAVE EMULATOR ¢ oat LEVEL 
5204 003704 000402 BR VMKOR ;;GET AROUND TAG AREA 
5205 003706 000000 SAV30: .WORD 0 ;;PUT EMULATOR INFO HERE 
5206 003710 000000 SAV32: .WORD O ;;PUT PRIORITY LOCATION HERE 
5207 003712 105737 056666 VMKOR: TSTB $ENV 
5208 003716 001001 BNE NORES 
5209 003720 000005 RESET 
5210 003722 NORES: CLEAR MONFLG ;;CLEAR RETURN TO MONITOR FLAG 
003722 005037 002276 CLR MONFLG 
5211 003726 010637 002274 MOV SP , SAVMON ;;SAVE XXDP MONITOR RESTART ADDRESS 
5212 003732 013706 002574 MOV KSTACK , SP ;;SETUP THE STACK POINTER 
5213 003736 012700 002000 MOV #$CMTAG,RO ;;FIRST LOCATION TO BE CLEARED 
5214 003742 005020 1$: CLR CRO)+ ;;CLEAR MEMORY LOCATION 
5215 003744 022700 002544 CMP #$CMTGE ,RO i 
5216 003750 001374 BNE i$ ;LOOP BACK IF NO 
§217 003752 012737 000177 002556 MOV #177,LASTBANK RESTORE LASTBANK CTHIS MUST BE DONE PRIOR TO SYSTEM SIZING) 
5218 003760 SUBTST <<CLEAR NON- PROGRAM SPACE >> 
5 KRKKRERERKEEEREREKEEEEREREEEEEEEEREEEEEEEEEEESEEEEEE SEES REESE EEEEEEEEEEEEEEEEEE EES 
;*SUBTEST CLEAR NON-PROGRAM SPACE 
5219 ;THIS ATTEMPS TO GET RID OF ANY PARITY ERRORS BY WRITING INTO 
5220 ;EVERY LOCATION THAT-IS NOT LOADED INTO BY THE PROGRAM OR ALLOCATED 
5221 ;T0 THE XXDP LOADERS 
$222 003760 012737 000001 002076 MOV #1,NOPAR ;sPARITY ACTION = COUNT & IGNORE 
5223 003766 005000 CLR RO 
5224 003770 000241 2$: CLC 
§225 003772 005520 ADC CRO)+ 
74 020027 160000 CMP RO, #160000 
5227 004000 103773 BLO 2$ 
a556 004002 005037 002076 CLR NOPAR ;sRESTORE DEFAULT PARITY ACTION 


5 EEEEEEEEEREREREEEEEREE EERE SEES SESEESESESESESEESEESESRE SES EEEREREEESESESEEESESEEEEE ES 
' 


ee ea ll a il a a 
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CLEAR NON-PROGRAM SPACE 
| 5231 004006 


S232 004006 
5233 004010 
5234 004012 
5235 004020 
5236 004026 
5237 
5238 
5239 
5240 
5241 004030 
S242 004032 
5243 004040 


5244 004044 


5269 22 
5270 004230 

004230 
5271 004236 


5274 004254 


000401 
000000 


012737 
012737 
000007 


000406 
012737 
104401 
000000 
012737 
110037 
012737 
005737 
000447 


012737 
005037 


001003 
052737 
012737 


012737 


004074 
004032 


047122 
071474 
000012 
004010 
004074 
177746 
002544 
002336 
000005 
004146 
172516 
000020 
000020 


052314 
177766 
177777 
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000010 


000034 


000010 


060342 
004010 


000004 


172516 
172516 


002556 
002552 


004010 
172516 
000004 


052314 


§EEEEEESEEEESESESEEEEERESERERESEREREEE ESKER EEEEEEREEEEREKEEEEEEESESE ERE REE REESE 


5 EREEREEEEEEEREEER EER EEE EAE EREE EERE REESE EEREREEEEE EA ERAEEEEEE SESE ESSE EERE ERE EES 
R ;SKIP OVER VARIABLE LOCATION 


SUBTST 
;*SUBTEST TYPE OF SYSTEM SIZER 
SYSSIZ 
PROTYP: .WORD 0 
SYSSIZ: SET4 #3$ 
MOV #3$,4 
-DSABL CRF 
MOV #1$,10 
MFPT 
BR 2$ 
1$: MOV #$TYPE , 34 
TYPE MSG130 
TYPEIT ,MSG130 
-DSABL CRF 
HALT 
2$: MOV #12,10 
MOVB RO,PROTYP 
SET4 #3$ 
MOV #3$,4 
.DSABL.. CRF 
TST CONTRL 
BR 6$ 
3$: CLR CACHKN 
MOV #ZEROS ,DT14 
CMP »PROTYP 
BEQ 
SET4 #4$ 
MOV #4$,4 
.DSABL CRF 
CLR MMR3 
BIS #BIT4,MMR3 
BIT #BIT4 ,MMR3 
BNE $ 
4$: INC NO22BI1IT 
MOV #7,LASTBANK 
S$: MOV #140000 , TESTMODE 
INC NOSUPER 
CLR DT5+10 
CLR DT14+10 
CLR DT5+12 
CLR DT14+12 
6$: CMP #5,PROTYP 
BNE 22$ 
BIS #BIT4 ,MMRS 
223: SET4 #7$ 
MOV #7$,4 
.DSABL CRF 
CLR CPERRF 
TST a#177766 
MOV #-1,CPERRF 
7$: RES4 


110 


mma — _—— = — - 


<<TYPE OF SYSTEM SIZER>> 


;TRAPS TO 10 = BAD PROCESSOR TYPE 


; TYPE OF~PROCESSOR TEST: THIS INSTRUCTION 


SEQ 0125 


:CAVATLABLE ON NEWER PROCESSORS a PLACES 


E IN THE LOWER BYTE OF ROT 


sINDICATES THE PROCESSOR TYPE. 1=11/44 


;3=11/23, 5=11/83/84 (Orion) 


;LOAD TRAP VECTOR 
;TELL THEM BAD PROCESSOR TYPE 


;NO NEED TO GO ON 
;RESTORE TRAPS TO 10 
;MOV THE CODE TO PROTYP 


;SEE IF CACHE REGISTER RESPONDS 
BRANCH IF “y+ es LE 


;D0 NOT PRINT CONTRL ERROR MESSAGES 
;IS THIS A 11/83/84 
;YES - BRANCH 


;SEE IF THERE IS 22-BIT ADDRESSING 


;BRANCH IF 22-BIT RELOCATION 
;SET FOR NO a BIT ADDRESSING 
; HIGHEST BANK OF MEMORY 

;MAKE TESTMODE USER 


;CLEAR SOME ERROR DATA TAGS 


;CPU TYPE = 11/83/84 
;NOQ - BRANCH 

;SET UP 22 aw ADDRESSING 
; TRAPS GO TO 4$ 


;CLEAR THE FLAG 

;IS oo A CPU ERROR REGISTER? 
; YES- TRAPPED 

sENABLE TRAPS TO 4 


—— ee = aaa ° 


A LLL LLL LL LLL LL A, A 
TT 


~ — TT TT 


} 
| 


- mm -_- = _—= -—_——— —— 


VMJAAO MSVi1l-J MEMORY DIAG. 
YPE OF SYSTEM SIZER 
004254 012737 034114 
004262 022737 000005 
004270 001002 
004272 005037 177766 
004276 


5275 


J10 
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000004 MOV #TIMEOUT ,4 
004010 CMP #5,PROTYP ;1S THIS AN 11/83/84 ? 
BNE 101$ ;BRANCH IF NOT 
see CLR CPUERR ;CLEAR OUT THE CPU ERROR REGISTER BITS 
; THAT A EXPECTED TRAP COULD HAVE SET 
-DSABL CRF 


SEQ 0126 


TYPE OF SYSTEM SIZER 


| 


5278 004276 


5279 004276 
76 


5304 16 
5305 004524 


012737 
012737 


012737 


012737 


012737 


CVMJAAO MSV11-J MEMORY DIAG. 


177777 
000003 


177777 


K10 
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SUBTST 


em ee —— = -_ -———_—— 


<<INITIALIZE VARIABLES TO NON ZERO>> 


§ ESSE SESESSESSESE SES SESE SESS ESS SESS SSE S SESE SASSER SKERAREEEEKRESRERESERECEEREES 


; *SUBTEST 


INITIALIZE VARIABLES TO NON ZERO 


5 RREEEEEEESEEREE ERE EERE EERE EEE SEER EEE E EEE EEE SESE SERRE EREE EEE ORES EERE ESET ES 
SET WORST 


#3,FLIPLOC 
HEADER 


MOV #176543 ,MSEEDH 
MOV #123456 ,MSEEDL 
MOV MSEEDH, SEEDHI 
MOV pated SEEDLO 
,BAKPAT 


MOV #377 
MOV #177400, SWAPAT 
SUBTST <<INITIALIZE VECTORS>> 


MOV #-1,WORST 


MOV #-1,HEADER 


;PRIME THE RANDOM NUMBER GENERATOR 
;BOTH HIGH AND LOW WORDS 


BSP EERE SEES ESKER EEE EE ERERERESERERESE EEE EEESESEESREEEEESEREE EE EE ES 


;*SUSTEST 


INITIALIZE VECTORS 


peeeeeeeNOV. SSSCOPE.IOTVEC ss I0T VECTOR FOR SCOPE ROUTINE 
MO 


340, 
MOV #$TRAP, TRAPVEC 
MOV $340, TRAPVEC+2 
MOV #$PWRON, PWRVEC 
MOV $340, PWRVEC+2 
MOV #PARITY ,PARVEC 


MOV #TIMEOUT , ERRVEC 
MOV #340, ERRVEC+2 
MOV #MMTRAP , MMVEC 
MOV $340, MMVEC+2 
CACHON 


is TOT VECTOR FOR SCOPE ROUTINE 
i VENT VECTOR FOR ERROR ROUTINE 
;;TRAP VECTOR FOR TRAP CALLS 
;LEVEL 7 
: POWER FAILURE VECTOR 
‘GET READY FOR PARITY ERRORS 
;RESERVED INSTRUCTION TRAP 
;SETUP TIMEOUT ERRORS 
;SET PRIORITY OF ERROR TRAPS 
;VECTOR FOR MEMORY MANAGEMENT 


; TURN CACHE ON 


SEQ 0127 


ee ed 


CVMJAAO_MSV11-J MEMORY DIAG. 
INITIALIZE VECTORS 


| — §308 004526 
| 


saa 004642 
5337 004644 


5338 004644 
004644 


004652 
5339 004652 
5340 004654 


00 
5345 004700 


012737 
006001 


103402 
012713 


056734 
017014 
000020 
004644 


000010 
004644 


017244 
000020 
004644 
000010 


004644 


017430 
000020 
004644 


000010 
004644 


000001 


024220 


000002 


002452 
002452 
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SUBTST <<INITIALIZE PATTERNS>> 


SEQ 0128 


5 ESSE SSESESSESESSESESESSSESSSES SES SSS SSERESAEESE SE SEEKERS SESE ESSERE SESE KES ERECESE SY 


; *SUBTEST INITIALIZE PATTERNS . 


mee eK En ae _ae _ao 
;THE APT E-TABLE DETERMINES WHICH PATTERNS ARE GOING TO BE R 
;EACH BIT SET REPRESENTS A PATTERN TABLE ENTRY THAT IS TO BE LEFT 
ALONE (TO BE RUN). EACH BIT CLEARED REPRESENTS A ght. — ENTRY 
zTHAT IS iene —_— WITH THE ADDRESS OF A NULL PATTERN 


5 ESEESESEEESESEKSERSEKSS ESSE SE SSS SEAS SSESSSSES SESE SRSESEEEEESESEERE SEEKS ESE EERE EEEE 


EKER EEEESEKERERSERE SSS ESSE SEES ESSER ESSE ESSERE REE EERE SESESESSEEEEREREEE EEE 


#$DDWO, 

MOV C(RO)+,R1 

MOV #MKCSRT, 

MOV #16 °°? 

CALL PATPLUG 

MOV C(RO)+,R1 

MOV 8. ,Re 

CALL PATPLUG 

MOV C(RO)+,R1 

MOV #MKPAT ,R3 

MOV #16 a 

CALL PATPLUG 

MOV (RO)+,R1 

MOV 8. ,R2 

CALL PATPLUG 

MOV CRO)+,R1 

MOV #MJPAT ,RS 

MOV #16., 

CALL PATPLUG 

MOV CRO)+,R1 

MOV #8 «fs R2 

CALL PATPLUG 

BR UBAA 

PATPLUG:SUBTST <<SUBR PLUG IN NULL PATTERNS>> 
; *SUBTEST SUBR PLUG IN NULL PATTERNS 
OR I := #1 TO R2 
002452 
ROR Ri 
ON.NOERROR ;IF CARRY CLEAR 
MOV ee ead Sale 

END ;OF ON.ERR 
ADD #2,R3 

END ;OF FOR 

RETURN 


ee ee 


-_-_—— me 


_ —- —— 


| CVHJAAO MSV11-J MEMORY DIAG. 
| SUBR 


PLUG IN NULL PATTERNS 


5348 004702 


sh 
5352 904702 
02 


012737 


012737 


012737 
012737 


022777 
001023 


000403 
012716 
000002 


012737 
022737 


012737 
012737 


002626 
002664 
003670 


000002 


004766 


177570 
177570 


177777 
004774 
034114 


000005 
177766 


000176 
000174 


MACRC 


002106 


000004 
002636 
002640 


175654 


000004 
004010 


002636 
002640 


M10 
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SUBAAA: SUBTST <<CLEAR THE CONFIGURATION TABLE>> 
5 FEEEEEESEA SEER EERE SEES ESSE SEES EEEEERE SESE EEEEEE ERE ER SEER EERE ESE E EEE ee EEE EES 


; *SUBTEST CLEAR Tre CONFIGURATION TABLE 
EERE EEEEEEESEEEEEEEERERESERERESAESEERESESEEEEESE CERES SERRE SEER TREE ESE EERE HESS 


;THIS ZEROS CUNLESS WE STARTED AT ADDRESS 202) THE CONFIG TABLE 
;WHICH IS FULLY DISCRIBED AT LOCATION “CONFIG”. 
.ENABLE LSB 
IF RESTART IS FALSE 
TST RESTART 
BNE Li 
i, »RO 
ee »RO 
IF RESTART 


1$: 


Lisssssss 


LSB 
#BIT1,CPUBIT ;SET ID BIT 
SUBTST <<SIZE FOR A HARDWARE SWITCH REGISTER>> 
EKER EEEREEEREEERERES EEE EERE E EER ERE EER EERE EES EEEE SES EEESEEE EE EEEEE EEE EEE E EE ES 
; *SUBTEST SIZE FOR A HARDWARE SWITCH REGISTER 
j SORSSSSSSERSSSEESESESESSEEESSESESEEESESESEesESSEEEseSESEESSeEESSEESSeeSSEeTETeTS 


;IF NOT FOUND tC IT IS 
; EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
-ENABL LSB 
SET4 #3$ ; TRAPS TO 4 GOTO 3$ 
MOV #3$,4 
-DSABL CRF 
MOV 


;;SETUP FOR A HARDWARE SWITCH REGISTER 
REGISTER 


#DSWR , SWR 
MOV #DDISP ,DISPLAY ; ; AND A HARDWARE DISPLAY 
IF #-1 EQ @SWR ;IF NO TRAP FROM REFERENCE TO @SWR AND @SWR = #-1 
CMP #-1,3SWR 
BNE L2 
BR 2$ ; ;BRANCH IF NO TIMEOUT 
3$: ry #2$, (SP) ;;SET UP FOR TRAP RETURN 
2$: RES4 ;RESET TRAPS TO 4 TO DEFAULT 
MOV #TIMEOUT ,4 
CMP #5 ,PROTYP ;I1S THIS AN 11/83/84 ? 
BNE 101$ ;sBRANCH IF NOT 
ones CLR CPUERR ;CLEAR OUT THE CPU ERROR REGISTER BITS 
; THAT A EXPECTED TRAP COULD HAVE SET 
DSABL CRF 
MOV #SWREG,SWR ;;POINT TO SOFTWARE SWR 
MOV #DISPREG,DISPLAY 
END ;OF IF #-1 
Lesssssss 
DSABL LSB 


SEQ 0129 


————— - 


| SIZE F 


| CVMUARO MEV. -J MEMORY CIAG. 


5379 

5380 

5381 005032 

5382 005036 
005036 


5384 

5385 
005054 

5386 005064 
005064 

5387 003072 

“6388 005072 
005072 
005100 

5389 005102 
005102 


005124 
5390 005132 
5391 005140 


005037 
132737 
001403 
012737 


132737 
001403 


012737 


123727 
001023 


012737 


012737 


056654 
000040 


177777 


000200 


177777 


056666 


177777 
177777 
177777 
177777 
040720 
056670 


N10 
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A HARDWARE SWITCH REGISTER 
5378 005032 


000024 
002636 


SUBAAB: SUBTST 
{FEES ESEEEEESSSEEEERESESESERESSEREEAS SESSA AERA TERESA REET ESERERE SHEE EES 
; *SUBTEST SETUP ACT, APT, & XXDP 

| HERESEEEEERESESERERESESESESEEE SSS SAEES ESSERE ESSE RES EHEE REESE SESE TER EEE EE EES 


<<SETUP ACT, APT, & XXDP>> 


;THIS SETS UP A BUNCH OF FLAGS TO Ha THE PROGRAM EVERYTHING 

te CARES TO KNOW ABOUT APT, ACT, & XXDP. 

CLR $PASS ;CLEAR PASS COUNT 

IFB #BITS SET.IN $ENVM 
BITB #B1ITS, $ENVM 
BEQ L3 

SET $TPFLG 
END ;OF IFB #BITS 


IFB #BIT7 SET.IN $ENVM 


; INDICATE NO TERMINAL 
MOV #-1,$TPFLG 


LSssssass 
BITB #8117, $ENVM 
BEQ L4 
SET APTSIZE 
END ;OF IFB #BIT7 
IFB $ENV EQ #1 


MOV #-1,APTSIZE 
L4:ssisss 

CMPB $ENV, #1 

BNE L5 


SET APTFLAG, QVFLAG, $AUTO, QUICK 
MOV #-1,APTFLAG 
MOV #-1,$AUTO 
MOV #APTDOWN,PWRVEC 


MOV #$SWREG, SWR ;USE APT SWR 


—_———— ee 


[a —=- 


| 
Soest i! esas 


_—_———— <A, a —eatata 


5392 005146 


000430 
023727 
00 

001421 
012737 
012737 
023727 
001004 


012737 
000403 


012737 


177777 


177777 


Bil 
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014042 


002350 


002354 


ELSE 


IF 42 NE @STACK AND 42 NE 40 


SET QVFLAG, $AUTO 
IF 42 EQ #$ENDAD 


SET ACTFLAG 
ELSE 


SET XXDPCHAIN 
END ;OF IF 42 
END ;OF IF 42 
END ;OF IFB $ENV 


BR L6 
USssssees 


CMP 42, STACK 
BEQ L7 


MOV @-1,QVFLAG 
MOV #@-1,$AUTO 


CMP 42, ®$ENDAD 
BNE L10 


MOV #@-1,ACTFLAG 


BR Lil 
LIO:ssssss 


MOV #-1,XXDPCHAIN 
Lilssssess 
L7ssssas3 


LO:ssssss 





5403 005230 


5409 70 

5410 005272 
005272 
005274 

5411 005274 
005274 

5412 005300 

5413 005300 
005300 

5414 

5415 005300 

5416 

5417 

5418 005300 
005300 

5419 005306 

5420 005312 
005312 


5421 005320 


5427 005352 
5428 005360 
5429 005366 

005366 


5430 005372 
Sats 005376 


CVMJAAO MSV11-J MEMORY DIAG. 
SETUP ACT, APT, & XXDP 


052737 
052737 


022737 
001412 


005737 
001405 


012737 
104064 


000402 


104401 


012737 
005737 
012737 


104401 


052737 
042737 


104401 
012637 
000411 
012637 
104401 


Se Ee -——_— «- - _——-— — 


Cil 
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SUBTST <<PROTECT PROGRAM & LOADERS>: 
5 EREEEEEEEEEEEEEEEEEEEE CEREEEEERER EASES SEERA ASEH EERE ERE EERE ECE RR EE EERE EE EES 
; *SUBTEST PROTECT PROGRAM & LOADERS 
5 EEEEEEEREEEREREEEEE REAR EER EEEE EERE EEE REE RESEEEEESE SESE EEE EEEEEE EEE E ERE EERE ESS 


000200 002664 S #BIT7,CONFIG ;sPROTECT PROGRAM SPACE (BANK 0) 
000200 002670 BIS #BIT7, CONFIG+4 ; PROTECT LOADER SPACE (BANK 1) 
IF #$SENDAD NE 42 sNOT ACT-11? 
014042 000042 CMP #$ENDAD, 42 
BEG Li2 
IF NO22BIT NE #0 ; 
002454 TST +‘ oo 
SET MONFLG ;sRETURN TO XXDP MONITOR 
‘77777 002276 MOV #-1,MONFLG 
ERROR +64 sILLEGAL PROCESSOR 
ELSE ; 
BR L14 
LiS:ssssss 
TYPE MSGOOO ; TYPE PROGRAM TITLE 
071422 TYPEIT ,MSGOOO 
-DSABL CRF 
Li46sssssss 
END ;OF IF #$ENDAD 
Li2sssssss 
SUBTST <<CHECK FOR CACHE AND MEMORY MANAGEMENT >> 
5 EEEEREREEE EERE EREEREREEEEREEEEESEEEEEEEEEEEEEEEEEEEEESEEEEEEEEEES EEE OEE OEEEEEES 
; *SUBTEST CHECK FOR CACHE AND MEMORY MANAGEMENT 
5 EREREEERESERE TEESE EERE EERE ES EEEEEESEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEREEEEES 
;* THIS FIGURES OUT IF THERE IS A CACHE AND MEMORY MANAGEMENT 
te ee AND WHETHER IT IS ENABLED OR DISABLED. 
005500 000004 MOV #3$,4 
.DSABL CRF 
177746 TST CONTRL ;I1S THERE A CONTROL REGISTER? 
SET4 #1$ 
005412 000004 V #1$,4 
-OSABL CRF 
572516 TST MMR3 ;I1S THERE A MMR3 REGISTER? 
000004 MOV 4,-(SP) ::V SAVE OLD TIME OUT 
005400 000004 MOV #14$,4 7:V PASS ON KTJ11 
001000 177750 BIT #BIT9,98¢177750 ;;V TEST FOR 1184 
BEQ 14$ 3:V ELSE REPORT 1183 
TYPE M1184 3;V REPORT 1184 
071100 TYPEIT ,M1184 
.DSABL CRF 
000400 177730 i2$: BIS #BIT8 ,.a#177730 V SET ABILITY TO CLEAR 
000077 177734 BIC #77 ,9#177734 ;;V¥ UNIBUS MEMORY ACCESS 
TYPE NOUBMT ;;V TO UNIBUS 
071547 TYPEIT ,NOUBMT 
-DSABL CRF 
000004 MOV (SP)+,4 ;;V AND REPORT NO UNIBUS 
BR $ ;;V MEMORY ACCESS AND CONTINUE 
000004 14$: MOV (SP)+,4 V ALSO RESTORE OULD TIME OUT 
TYPE MSG117 ; 11783 
071112 TYPEIT MSG117 


SEQ 0132 


EE ES TS TS rr rr mr ee SE 


5434 005410 
5435 pee ate 


5449 005504 
005504 


ATT 


000404 
012737 
104064 
052737 
042737 
032737 


001004 
032737 
001413 
104401 
104424 
013737 
005037 
104401 


104401 


CVMJAAO MSV11-J MEMORY DIAG. 
CHECK FOR CACHE AND MEMORY MANAGEMENT 


177777 
000014 
000014 
000004 
000010 
071154 


002544 
002544 


071124 


071133 


002276 
177746 
177746 
177746 


177746 


002546 


1$: 


4$: 


7$: 


3$: 


6$: 


. DSABL 


Dil 
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CRF 

4$ 

MONFLG 

+64 
#BIT2!BIT3,CONTRL 
#BIT2!BIT3,CONTRL 
Sees Soar. 

. iecamaaiees 
MSG121 

»MSG121 

CRF 

CACHKN, CACHKN+2 
CACHKN 

8$ 

MSG119 

»MSG119 

RF 


C 
MSG120 
»MSG120 
CRF 


;PROCESSOR NOT SUPPORTED BY THIS DIAGNOSTIC 
MOV #-1,MONFLG 


;NO MEMORY MANAGEME 
DISABLE 


;SET CACHE 


B 
;CLEAR CACHE DISABLE BITS 
;1S THE BIT SET? 
;BRANCH IF THE BIT IS SEi 
;IS THE BIT SET? 
;BRANCH IF THE BIT IS SET 
; CACHE BYPASSED 


NT 


ITs 


;SAVE INFO ABOUT CACHE 
;CACHE CANNOT BE USED - IT'S BYPASSED 


;CACHE AVAILABLE 


NO 


SEQ 0133 


- = ee) am 


CVMJAAO MSV11-J MEMORY DIAG. 
CHECK FOR CACHE AND MEMORY M 
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SEQ 0134 


5451 005510 


5452 005510 

5453 005512 

5454 005516 

5455 

5456 

5457 005520 

5458 005526 

5459 

5460 005534 
005534 

5461 005540 

5462 

5463 

5464 005542 

5465 

5466 005550 
005550 

5467 005554 

5468 

5469 005556 

5470 005556 
005556 
005562 

5471 005564 
005564 
005572 

5472 005574 
005574 

5473 005602 

5474 005604 

5475 Eric 


00561 
5476 005610 
005610 


5477 

5478 005610 

5479 005610 

$480 005612 
005612 
005614 
005620 


005624 
5481 005626 


052737 


012746 
006606 


005737 
001012 
023727 
001006 


012737 
104407 
005037 


104422 
010346 
012703 
004737 


012603 
104420 


002456 


030000 
010000 


000740 


030000 


000700 


002062 


002636 


177777 
002566 


000200 
035716 


2 
= 


SUBTST <<SETUP USER & SUPERVISOR STACK>> 


5 FSESESESSSESSSSSSESESESSES SESS SSSESES SSSR SEAE SASSER SERS REESE REECE EREE EES 


; *SUBTEST SETUP USER & SUPERVISOR STACK 
{ERE EEEEERE EERE ERE EEEE EE CEREEEREEEEE ERE REREEEEEEEEEEEEE EEE REESE EE ERE EE ERE EES 
BS: DEENERGIZE ;TURN OFF MEMORY MANAGEMENT 
TST NOSUPER :IS THERE A SUPERVISOR MODE? 
BNE S$ ;NO-SKIP SUPERVISOR SETUP. 
;SET PREVIOUS MODE TO SUPERVISOR 
177776 BIC #BIT13!BIT12,PSW 
177776 BIS #BIT12,PSW 
PUSH #SUPSTK 
MOV #SUPSTK,-(SP) 
MTPI SSP 
;SET PREVIOUS MODE TO USER 
177776 =5$: BIS #BIT13!BIT12,PSW 
PUSH #USESTK 
MOV #USESTK, -CSP) 
MTPI USP 
SUBTST <<GET SOFTWARE SWITCH REGISTER IF NECESSARY>> 
5 ERE EERE AER RARE EERE EEE RE RE EERE EEE EEEREE REESE EERE EE REESE EEEEEEEEE EE EEEE EEE EE 
;*SUBTEST GET SOFTWARE SWITCH REGISTER IF NECESSARY 
5 EKER ERE E REE EEE EERE EERE EERE EEE EE EE EERE ERE REESE EEE EERE EEE EE EEE EEE E EERE ES 
IF $AUTO IS FALSE ;IF NOTCAPT OR ACT) 
ii et 
IF SWR EQ #SWREG ;IF SOFTWARE SWITCH REG SELECTED 
000176 CMP SWR, #SWREG 
BNE L16 
SET SWRFLG ;;SET FLG TO BUMP STACK 
002566 MOV #-1,SWRFLG 
GTSWR ;;GET SOFT-SWR SETTINGS 
CLR SWRFLG ;;CLEAR IT FOR REST OF PROGRAM 
END ;OF IF SWR 
LI6:sss555 
END ;OF IF $AUTO 
LiSsssssss 
SUBTST <<GET MEMORY MANAGEMENT READY >> 
SERRE EREEREREREERE EERE EERE EE REREE EERE EER EEAEEEEEEEEEEEEESE EERE REESE EEE EERE EEE ES 
; *SUBTEST GET MEMORY MANAGEMENT READY 
a ieee : «3% y eee 
KMAP ;MAP KERNEL SPACE 1 T0 1 
MAP ;MAP SUPERVISOR SPACE (TEST AREA) 1 TO 1 
MOV R3,-(CSP) 
MOV #200 ,R3 
CALL MAPPER 
.DSABL CRF 
MOV (SP)+,R3 
ENERGIZE ; TURN ON MEMORY MANAGEMENT 


CVMJAAO MSV11-J MEMORY DIAG. 
GET MEMORY MANAGE 


5484 005630 


5 
5503 005632 
5504 005634 
5505 005636 
5506 005642 
5507 005650 
005650 
5508 005656 
005656 


5509 005656 
5510 005660 
1 005664 


04 
5516 005710 

005710 
5517 005716 
5518 005724 

005724 
5519 005724 
5520 005726 
5521 005732 

005732 


Se 
5525 005752 
5526 005756 


MENT 


005005 


005000 
012703 
012737 


012737 


005013 
012713 
032713 
001403 
052760 
005013 
004737 
026027 
100004 
016037 
104021 


062700 
062703 


READY 


172100 
000001 


006024 


000001 
900030 
020000 
020000 
000001 


006220 
002462 


002462 


000002 
000002 


Fiid 
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002076 
000004 


002462 
002462 


002462 


000030 
002052 


NEWTST 


<<BIT TEST OF ALL CSR'S>> 


FSS SSSSESSSSSSSSSSSSSSSSS SSS SSS SSSSSSESESSES SESS KEKE SAREE SREREREKEEERERESCES ES 


;#TEST 1 


BIT TEST OF ALL CSR‘S 


§ FS SSSSSSESSSSSSE SSS SSS SSS SESS SSESEESSESS SEES SSSSESSEERSERESSERESASTERSESSEEKRE RES EE EEEEES 


;* THIS 


NXTCSR: 


2) TESTS THE CSR BITS COMMON TO Ww: 
3) F S OUT IF E 


IGURE THE MODULE IS A 
4) TESTS THE BITS PARTICULAR TO THAT TYP 
5) IF ANY BITS TEST BAD IN THE 
CSR INFORMATI 


Ti: SCOPE 
:* THE FIRST PART OF THE CONFIGURATION ANALYSIS DOES THE FOLLOWI 
1) The. WHICH CSR‘'S RESPOND, PUT 


NG: 
A S THEM INTO THE CSR INFORMATION 
AND STORES ANOTHER BIT FOR “TOTCSRS”. 


R'S. 
ECC, OR PARITY MEMORY 
YPE OF CSR. 
CSR UNDER TEST, THE CSR OK BIT IN THE 
ON TABLE IS CLEAR 


ED. 
se hacen BITS ONE THROUGH THREE FORM A CODE WHICH GIVES THE TYPE 


ECC 
TYPE BITO 
MSV11-L/P 0 PARITY 
MSV11-J 1 ECC 
MEMORY CODE WILL BE USED IN THE SECOND PART OF THIS ANALYSIS 
CLR RS :RS IS THE TOTAL CSR NUMBER 
CLR :RO IS A TABLE INDEX 
MOV 2csRADD, R3 ;R3 HAS THE CSR ADDRESS 
MOV #1,NOPAR sIGNORE PARITY ERRORS 
SET4  #CSRBMP 
V 8CSRBMP , 4 
.DSABL 
REPEAT : 
TST (R3) ;DOES THIS CSR RESPOND??? 
BIS #1,R5 -MARK IT IN CS 


R MAP 
CLR R4 CLEAR THE LAST CSR INDICATOR 
BIC #6,CSRINFOCRO) ;CLEAR UNUSED BITS 
BIS geita iTS. PSRINFOCROD i>. MARK IT IN CSR INFORMATION TABLE 
CLR (CRS ;CLEAR THE CSR UNDER TEST 
LET (R3) := @BIT13  ;IS THIS AN ECC MEMORY??? 


IF #BIT13 SET.IN (R3);IS BIT 13 SET 


MOV #BIT13,(R3) 
BIT | et »CR3) 
AS #BITO,CSRINFOCRO);MARK IT IN THE TABLE AS BEING A ECC MEMORY 


L17:s3e3 
CLR (R3) CLEAR CSR UNDER TEST —_— 
CALL RWCSR ‘BIT TEST OF ALL BITS IN CSR’S 
IF CSRINFOCRO) MI #30 ;00 WE HAVE A LEGAL CONFIGURATION? 


SEQ 0135 


CMP CSRINFOCRO), #30 
BPL L20 


MOV > »BAD ;MOVE IN BAD DATA 


ERROR 
ND : 
L2Osssssss 
ADD #2,R0 ;GO TO NEXT CSR 
ADD #2,R3 ;GO TO NEXT CSR 


1 woe MSV11-J MEMORY DIAG. 


BIT TEST OF ALL CSR’S 


5527 005762 
5528 005764 

005764 
5529 005766 
5530 005770 


005770 
5531 005770 
005770 
005776 
5532 005776 
5533 006000 
5534 ooeans 
5535 006004 
5536 006010 
006010 
5537 006014 
5538 006020 
006020 


5539 
5540 006024 
5541 006030 
5542 


006305 
103001 
005204 
020027 
001330 
006005 
005704 
001402 
052705 
010537 
004737 
000137 


062706 
000137 
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ASL RS 
ON. ERROR 


INC R4 
END 


UNTIL RO EQ #40 


ROR RS 
TST R4 
RNE 22$ 


BIS #BIT15,R5 
22: LET TOTCSRS := R5 


CALL_CSRMAP 
JUMPTO CTEST 


CSRBMP: ADD #4,SP 
JMP NXTCSR- 


;SHIFT CSR MAP 
;IS THERE A CSR 0 


;YES-SET CSR PRESENT FLAG 


Lei: 
;UNTIL ALL CSR‘'S ARE DONE 


BCC L21 


333333 
CMP RO, #40 
BNE Bl 
El:ssssss 
;RESYNC 


RS 
;WAS THERE A CSR 0? 
;BRANCH IF NOT EQUAL 


;YES SET IT IN CSR TABLE 
;STORE CSR MAP IN TOTCSRS 


;PRINT CSR MAP 


BEQ 22$ 
MOV RS, TOTCSRS 
JMP CTEST 


sFIX STACK POINTER FOR NON-EXISTANT CSR TRAP 
;GO ON TO NEXT CSR 


SEQ 0136 


—_ Lil —_— a mmr —e —— = —_—- — = 


Hil 
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BIT TEST OF ALL CSR’S SEQ 0137 


5544 006034 CSRMAP: SUBTST <<PRINT CSR REGISTER MAP>> 
5 CEE EEE EERE EERE EEERESERESE EE EERE EERE SEES EE REEEEEEEEEEEEEEEEEEE EERE EOE ERROR ES 
;*SUBTEST PRINT CSR REGISTER MAP 
5 EKER EAEEEEEEEREREREEE EEE EEEREEEEEREREEEEEE EEE E EEE EERE EEE EEEEE EEE EEE REE ERE ORE 
5545 006034 005000 CLR RO ;CLEAR CSR INFO POINTER 
5546 006036 TYPE MSG008 ;PRINT TITLE 
006036 104401 071370 TYPEIT ,MSGOO8 
.DSABL CRF 
5547 006042 TYPE MSGO16 ;PRINT CSR NUMBERS 
006042 104401 066064 TYPEIT ,MSGO16 
.OSABL CRF 
5548 006046 005001 LR Ri ; 
5549 006050 REPEAT ; 
006050 Bosssssss 
006050 010102 MOV R1,R2 ; 
551 006052 022702 000011 CMP #9.,R2 ; 
5552 006056 100002 BPL i$ ; JUMP AROUND NEX7 INSTRUCTION 
006060 062702 000007 ADD #7,R2 ; 
5554 006064 062702 000060 1$: ADD #60,R2 ;sMAKE IT ASCII 
5555 006070 110237 066062 MOVB R2,MSGO15 ; 
5556 006074 TYPE MSGO15 ; 
104401 066062 TYPEIT ,MSGO15 
DSABL CRF 
5557 006100 TYPE MSG0O14 ;TYPE SINGLE SPACE 
006100 104401 066060 TYPEIT ,MSGO014 
SABL CRF 
5558 006104 005201 INC Ri ; 
5559 0061 UNTIL Ri EQ #16. ; 
006106 020127 000020 CMP R1,#16. 
006112 001356 BNE B2 
006114 Cetssssss 
5560 006114 TYPE MSGOO09 ; TYPE MEMTYPE 
006114 104401 065544 TYPEIT ,MSGOO9 
.DSABL CRF 
5561 006120 REPEAT ; 
006120 SeS8sss 
5562 006120 IF CSRINFOCRO) NE #0 ;IS CSR NONEXSISTANT???? 
006120 005760 002462 TST CSRINFOCRO) 
006124 001414 BEQ L24 
5563 006126 IF #BIT0 SET.IN CSRINFOCRO) 
006126 032760 000001 002462 BIT #BIT0,CSRINFOCRO) 
006134 001404 BEQ L25 
5564 006136 112737 000105 066062 MOVE #'E,MSGO15 ;IT IS A MSV11-J 
5565 006144 LSE 
006144 000403 BR L26 
006146 Ledissssss 
5566 006146 112737 000120 066062 MOVB #’'P,MSGO15 ;IT IS A MSV11-L/P 
5567 006154 
006154 L26:sssese 
5568 006154 ELSE 
006154 000403 BR L27 
006156 Lo4:sssess 
5569 006156 112737 000040 066062 MOVB #' ,MSGO15 
5570 006164 ND 
006164 Le/sssssss 
5571 006164 TYPE MSGO15 ; TYPE MEMORY TYPE 
006164 104401 066062 TYPEIT ,MSGO15 


——————— << acacit -—-—_—- 


——— os —- 


oe ea 


—_— —— cme ec a a a 


T11 Sacer ye he ae 
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PRINT CSR REGISTER MAP SEQ 0138 | 
-DSABL CRF 
5572 006170 TYPE MSGO14 ;TYPE SPACE | 
006170 104401 066060 TYPEIT ,MSGO14 : | 
.DSABL CRF | 
5573 006174 000240 NOP ; 
5574 006176 062700 000002 ADD #2,RO0 ;POINT TO NEXT ENTRY 
5575 006202 UNTIL RO EQ #40 ; 
006202 020027 000040 CMP RO, #40 
006206 001344 BNE 83 
006210 ES:ssssae 
5576 006210 TYPE MSG129 ; 
006210 104401 071471 TYPEIT ,MSG129 
.DSABL CRF 
5577 006214 000207 RETURN ; 
5578 006216 000000 TRACE: .WORD 0 


5580 006220 


006224 
5592 006230 
006230 
5593 006232 
5594 006234 
0062 
5595 006240 
006240 
5596 006244 
006244 
006252 
5597 006254 
5598 006260 
006260 
006262 
5599 006262 
006262 
5600 006266 
006266 
5601 goeace 
5602 006274 
5603 z00 
5604 cosens 
5605 0063504 
5606 06 


32 
5612 006332 


013746 


010005 
006205 


010537 
010337 


032760 
001403 


012705 
000402 


012705 


012737 
040537 


005013 


011304 
040504 


005704 
001410 


005037 
010437 


104035 
042760 


| CVMUAAO MSV11-J MEMORY DIAG. 
PRINT CSR REGISTER MAP 


177640 


002152 
002034 
000001 


017740 


070032 


177777 
002322 


002044 
002150 
000010 


Jil 
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002462 


002322 


002462 


SUBTST 


<<READ AND WRITE ALL CSR BITS>> 


§ FEES ESESSE SSS ESSRESESESRSESRESEES SEE SSES SASK SES SEERERSESE EERE SES ESESESES EEE EEE EE CEES 


;*SUBTEST 


READ AND WRITE ALL CSR BITS 


EES EEESEEEESEEEEEEEEEESESEEESEE SEES EREKERESERSE CESSES REAESEEERE SESE EE SEES EE ES 


; THIS ROUTINE "RWCSR” CHECK TO SEE THAT THE CSR CAN BEWRITTEN ON CORRECTLY 
BY WRITING AND CHECKING FOR THE FOLLOWING PATTERNS: 


1-ZEROS 
2-ONES 


3-SHIFTING A ONE THROUGH A FIELD OF ZEROS 
4-SHIFTING A ZEROS THROUGH A FIELD OF ONES 


PUSH R4,R5,UIPARO 


LET RS := RO 


ASR RS 
LET CSRNO := RS 
LET ADDRESS := R3 


LET RS 
ELSE 


:= #017740 


LET R5 := #070032 
END 
LET CSR1S := #177777 


BIC RS, CSR1S 
LET (R3) := #0 


LET R4 := (R3) 
BIC R5,R4 
IF R4 NE #0 

:= #0 
:= R4 


LET GOOD : 
LET CSR 
ERROR + 


35 
BIC #B1T3,CSRINFOCRO) 


END 


LET (R3) := CSR1S 


;MASK FOR MSV11-J 


;1T IS A MSV11-L/P 


;MASK FOR MSV11-L/P 


;GET CSR NUMBER FOR POSSIBLE a 


;SET CSR1S TO ALL ONES 
— BITS FOR GOOD DATA 
>CSR 


;MASK OUT UNWANTED BITS 


;DO0 WE HAVE A CORRECT 


;GO0D DATA=0'S 


;BAD DATA=CSR 


;BIT SET ERROR 
;CLEAR CSR OK BIT 


; ONES--->(R3) 


READ 


;SAVE R4,R5, AND UIPARO ON STACK 


MOV R4,-CSP) 


MOV 


RS, -(SP) 
MOV UIPARO, -(SP) 
RO,RS 


MOV RS,CSRNO 


;GET ADDRESS FOR POSSIBLE ERROR ws 
IF #BITO SET.IN CSRINFOCRO) ;WHAT KIND OF MEMORY IS veer 


» ADDRESS 
;GET BIT 
T eBIT0, » CSRINF OCRO) 


MOV #017740,R5 


MOV #177777,CSRiS 


CLR (R3) 


MOV (R3),R4 


TST R4 
BEQ L33 


CLR GOOD 
MOV R4,CSR 


SEQ 0139 


MASKS FOR D 


me ee ee ~- 


<n — de mas ei, ei ie a at —— = 


Kid 
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READ AND WRITE ALL CSR BITS SEQ 0140 


096332 013713 002322 MOV CSRiS,(R3) 
5613 006336 LET R4 := (R3) ;MASK OUT CORRECT FIELD 
0063 011304 . MOV (R3),R4 
006 005013 CLR (R3) ;CLEAR OUT CSR 
5615 006342 040504 BIC R5,R4 ; 
5616 006344 IF R4 NE CSR1iS ;WAS PATTERN WRITTEN CORRECTLY? 
006 020437 002322 CMP R4,CSRIS 
0063 001411 
5617 006352 LET GOOD := CSRiS  ;GO0OD DATA = ALL LEGAL BITS SET IN CSR 
0063 013737 002322 002044 MOV CSRiS,GOOD 
5618 006360 LET CSR := R4 ;BAD DATA=CSR 
006 010437 002150 MOV R4,CSR 
5619 006364 104010 ERROR +10 ;BIT CLEAR ERROR 
5620 006 042760 000010 002462 BIC #BIT3, CSRINFOCRO) ;CLEAR CSR OK BIT 
5621 poe Lo END 
5622 006374 LET PASFLG := #0 ;SET UP LOOP COUNTER 
006374 005037 002264 CLR PASFLG 
5623 Sarane REPEAT ;REPEAT WITH A FIELD OF ‘5 THROUGH 0'S 
5624 O'S THROUGH 1'S 
25 0064 005237 002264 INC PASFLG INCREMENT LOOF COUNTER 
5626 006404 LET UIPARO := #-1 ;USE USER PAR FOR BIT COUNTER 
0064 012737 177777 177640 MOV #-1,UIPARO 
5627 006412 IF PASFLG EQ #1 ;PASS 1 
006412 023727 002264 000001 CMP PASFLG, #1 
006420 001003 BNE L35 
5628 006422 LET R2 := #1 ;1----- >FIELD OF ZEROS 
422 012702 000001 MOV #1,R2 
5629 006426 ELSE ;PASS 2 
006426 000402 BR L36 
006430 L35:sscrEe 
5630 006430 LET R2 := #177776 ;0----- >FIELD OF ONES 
4 012702 177776 MOV #177776,R2 
5631 006434 END ; 
006434 Srssssss 
5632 pot ry REPEAT ;0D0 BITS 0-4 AND 13-15 
5633 006434 005237 177640 INC UIPARO ; INCREMENT BIT POINTER 
5634 006440 IF PASFLG EQ #1 AND #BITO OFF.IN CSRINFOCRO) ; 
006440 023727 002264 000001 CMP PASFLG, #1 
006446 001006 BNE L37 
006450 032760 000001 002462 BIT #BITO, CSRINFOC(RO) 
006456 001002 BNE L37 
5635 006460 042702 040000 BIC #B1T14,R2 #=;IF THIS IS PASS 1 ON A MSV11-L/P,CLEAR BIT 14 
006464 ND : 
006464 Vessssee 
5637 006464 IF PASFLG EQ #2 AND #BITO OFF.IN CSRINFOCRO) 
006464 023727 002264 000002 CMP PASFLG, #2 
006472 001006 BNE L40 
006474 032760 000001 002462 BIT #BIT0,CSRINFOCRO) 
906502 001002 | BNE L40 
006 042702 040004 BIC #BIT14!BIT2,R2 ;IF THIS IS PASS 2 ON A MSV11-L/P, CLEAR ECRSRD BIT AND 
5639 006510 ND ; 
00651 L4O:sssaae 
5640 006510 LET (R3) := R2 ;WRITE DATA 
006510 010213 MOV R2,(R3) 


LL LL A _ 


eee 
- Sr i 


5641 006512 
006512 
5642 006514 
5643 006516 
006516 
5644 006520 
5645 006522 
006522 
006524 
5646 006526 
006526 
5647 006532 
006532 
5648 006536 
006536 
5649 006546 
5650 006550 
006550 
006552 
5651 006552 
5652 006554 
006554 
5653 006554 
5654 006562 
006562 
5655 006562 
006562 
006570 
5656 006572 
5657 006574 
006574 


006576 
5658 006576 
5659 00 


010201 
040501 


011304 
040504 
020104 
001416 
010137 
010437 
023727 
001002 
104035 
000401 
104010 


042760 


023727 
001002 
006302 
000402 


000261 
006102 
023727 
001311 


023727 
001267 


032760 


012713 
011302 
042702 


020227 


CVMJAAO MSV11-J MEMORY DIAG. 
READ AND WRITE ALL CSR BITS 


002044 
002150 
002264 


000010 


002264 


177640 


002264 


000001 


006700 


140005 


037772 
140005 


La de 
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000001 


002462 


000001 


000017 


000002 


002462 





LET Ri 


BIC R5,R 
LET R4 


IF 


LET GOOD 
LET CSR 


:= R2 


: = (RB) 


BIC R5,R4 
R1 NE R4 


:= Ri 
:= R4 


IF PASFLG EQ #1 


ERROR +35 
ELSE 


ERROR +10 
END 


L4 
= #BIT3,CSRINFOCRO) ;CLEAR CSR OK BIT 


IF PASFLG EQ #1 


ASL 
LSE 


SEC 


Re 


ROL R2 
ND 


UNTIL UIPARO EQ #15. 


UNTIL PASFLG EQ #2 


;IS DATA CORRECT??? 


;GET GOOD DATA AND MASK IT OUT 


;GET GOOD DATA 
;GET DATA THAT IS READ 


;MASK OUT CSR BITS 


;BAD DATA = CSR CONTENTS 
;GET GOOD DATA 
;SELECT ERROR DEPENDING ON PASS 


;BIT SET ERROR 
PASS 2 


;BIT CLEAR ERROR 


L4 
;GET DATA FOR NEXT LOOP 


;SHIFT 1 ACROSS 0'S 


L 
;UNTIL ALL BITS ARE DONE 


;SET CAR 


MOV R2,R1 


MOV (R3),R4 


CMP R1,R4 
BEQ L41 
MOV R1,GO0D 


MOV R4,CSR 


CMP PASFLG, #1 
BNE L42 


sROTATE a 0 ACROSS A FIELD OF ONES 


;DONE WITH 2 PASSES 


SEQ 0141 


E4: 
IF #BITO SET.IN CSRINFOCRO) THEN JUMPTO DONE ;IF MSV1i-L/P DO ONE LAST WRITE 
ad 1 ee » CSRINFOCRO) 


LET (R3) : 
LET R2 


:= #140005 
:= (R3) 
BIC #37772,R2 


IF R2 NE #140005 


L50: 
;WRITE ONES TO CSR WITH ECSRRD ‘OLT EN ENABLED 
;READ CSR FOR CORRECT BITS 


;CLEAR UNWANTED BITS 
;WAS WRITE CORRECT 


#140005, (R3) 
MOV (R3),R2 


CMP R2,#140005 


ere ee 


— ee EE 
ST TT TT 


- — ae d—“—emaamaea Ae “et ae ae ae 


| CVMJAAO MSV11-J +g. DIAG. 


READ AND WRITE AL 


10 
5675 006712 


001411 
012737 
010237 
104010 
042760 


005013 
012637 


SR BITS 


140005 
002150 
000010 


177640 


-— _—_ = -—-—- — =. 


Mil 
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002044 


002462 


DONE : 


BEQ L51 
LET GOOD := #140005 ;GO0D DATA 
1 MOV #140005 ,GO00D 
LET CSR := R2 ;BAD DATA 
MOV R2,CSR 
ERROR +10 ;BIT CLEAR ERROR 
— #BIT3, CSRINFOCRO) ;CLEAR CSR OK BIT! 
L5lssssiss 
LET (R3) := #0 ;CLEAR OUT CSR 
CLR (R3) 
POP UIPARO,RS,R4 sRESTORE UIPARO,R4, AND RS 
MOV (SP)+,UIPARO 
MOV (SP)+,R5 
MOV (SP)+,R4 


RETURN 


SEQ 0142 


A LC 


| 


5678 
79 


006 
5697 007010 
5698 007012 


5 
3715 Sar tee 
5716 007150 


—_— —— a ll <ct tit ae ate 


CVMJAAO MSV11-J MEMORY DIAG. 
READ AND WRITE ALL CSR BITS 


177777 
002000 
002412 
100000 
100002 
002152 
002224 


000002 
002152 
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002462 
172100 
000000 
000002 


172100 
000000 
000002 
172100 


002462 


Nii 


;THE FOLLOWING ROUTINE DETERMINES WHICH CSR CONTROLS PROGRAM SPACE 


CTEST: 


4$: 
1$: 


2$: 


5$: 


6$: 


CACHOF F 


#177777 ,PGMCSR 
AR4 


DD 
— , TESTADD+2 


CSRNO 
TOTCSRS ,R3 
R3 


+ ah » CSRINFOCRO) 
*BIT2, Ver >t ee 


ty DDCRO) 

#0, CSRADDCRO) 
#123456,a(R1) 
#123456 , 82(Ri ) 

} » CSRADDCRO) 
CSRADDC(RO),R4 
ee 
R4 
8$ 
1$ 


;SET UP MAP REGISTER 


;CLEAR CSR COUNTER 


;OBTAIN CSR MAP 

;DEBUG AID 

;PUT HIGH ORDER BIT INTO C BIT 
;BRANCH IF CSR EXISTS 

;UPDATE CSR COUNTER 


;IS MAP EMPTY? 
;BRANCH IF SO 


;DEBUG AID 

;CLEAR CARRY 

;IS THIS PARITY MEMORY? 
;BRACH I T 

;SET WRITE WRONG PARITY 
;WRITE DATA 

sRESTORE CSR 


;CLEAR Le — UNDER TEST 
;WRITE DAT 


;SET DIAG CHECK MODE 
ae A es Bh TO CSR 


STRY NEXT CSR 


SEQ 0143 | 


mee eee ee 


—— oo — 


: 
: 
z 


-Ooe~ 
gage 
< 


EEEEEE 
ze 
4 


~~ 
_—e— 
n> 
S882E5 
~ 
~“ 
~ 
~ 


SSSVOUS AVE SSS 


sess 
See 


~~~ -~J =~ 
ws 
-— 
~ 
fw 
pare 
e~ 


5733 007226 
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7$: NOP 
ASH @-5,R4 
BIC #tC77,R4 
MOV #40 ,,R2 
CMP R2,R4 
BNE i$ 
8s: MOV RO,PGMCSR 
3%: NOP 
CLRCSR 
000000 MOV #0,a(R1) 
000002 MOV #0,82(R1) 
177777 CMP PGMCSR , #177777 
BEQ FINT$ 
JMP CLRMEM 
172350 FINT$: MOV #1000, KIPAR4 
TYPE MSG126 
TYPEIT ,MSG126 
.0S CRF 
CLR PGMCSR 


SEQ 0144 | 


;DEBUG AID 


;LOAD IN CORRECT CHECK BITS FOR MSV11-JU 
;CORRECT CHECKBITS? 
;BRANCH IF NOT 


= 


;DEBUG AID 
;CLEAR ALL CSR'S 
sRESTORE TEST LOCATIONS 


;IF PROGRAM CSR NOT FOUND GO TO FINT 
;G0 TO SIZING ROUTINE IF FOUND 
SERROR - PROGRAM CSR NOT FOUND! 


;SET TO DEFAULT OF 0 


> — a cee = ee eee 0 ee 


— — ——_— -—_ = -— 
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READ AND WRITE ALL CSR BIT SEQ 0145 


2 


5735 007232 SUBTST <<CLEAR ALL MEMORY SPACE FROM BANK 2 ON>> 
| EOREREEEEEEEE EE EER ESERE ESSE ERER ERE EEE ERSEEEESE REE RE EEE ESTEE TESTER EERE ERROR HOES 
; *SUBTEST CLEAR ALL MEMORY SPACE FROM BANK 2 ON 

_— s SoSSSSeressesesssesesessseeseeSssseoeNeseeeeseeESseeeesoeeeossonssessoeTesesS 
5737 ; THIS ROUTINE CLEARS ALL MEMORY SPACE a -- AT ADDRESS 200,000 AND 
5738 ;CONTINUES UNTIL THERE IS NO MEMORY LEFT. IT SHOULD CLEAR ANY PARITY ERRORS 
5739 ; CREATED BY THE LAST ROUTINE, AND CLEAN UP ANY JUNK LEFT HANGING AROUND IN 
e741 sHIGHER MEMORY . 
5742 007232 éLRMEM: SET4 #CLREX ;NONEM TRAPS GO TO CLREX 

007232 012737 007342 000004 MOV #CLREX,4 

-DSABL CRF 

5743 007240 5037 006216 CLR TRACE 
5744 007244 012737 000001 002076 MOV #1,NOPAR ; IGNORE PARITY ERRORS 
5745 007252 012737 002000 172350 MOV #2000, KIPAR4 ;SET UP MAP TO START AT BANK 2 

0072 012701 100000 MOV #100000 ,R1 ;R1 MAPS TO KIPAR4 
5747 007264 020127 117776 1$: CMP R1, #117776 ;WHOLE 16K BANK DONE? 
5748 007270 100 BNE 2$ ;KEEP GOING IF NOT 
5749 007272 012737 177777 006216 MOV #-1, TRACE ;USE TRACE FLAG TO FLAG END OF BANK 
5750 007300 005021 2s: CLR (R1)+ men CONTENTS €& INCREMENT 
5751 007302 005737 006216 TST TRACE ;EOB FLAG SET? 
5752 007 001001 BNE 3$ ;G0 10” NEXT BANK IF SO 
5753 007310 7 BR 1$ 

007 062737 000200 172350 3%: ADD #200, KIPAR4 ;SET MAP FOR NEXT BANK 
5755 007320 022737 177600 172°50 CMP #177600, KIPAR4 — WE AT THE PERPHERIAL PAGE 

007326 001405 BEQ CLREX -GO ON 
5757 007330 5037 006216 CLR TRACE RESET FLAG 
5758 007334 012701 100000 MOV #100000 ,R1 sRESET R1 
5759 007340 00075 BR ‘ ;CLEAR NEXT BANK 

007 000240 CLREX: NOP 
5761 007344 005037 006216 CLR TRACE 
5762 007350 RES4 

007350 012737 034114 000004 MOV #TIMEOUT ,4 

007356 022737 000005 004010 CMP #5,PROTYP ;IS THIS AN 11/83/84 ? 

7364 001002 BNE 101$ ;BRANCH IF NOT 
pod 2 005037 177766 nace CLR CPUERR ;CLEAR OUT THE CPU ERROR REGISTER BITS 


-DSABL CRF 


; THAT A EXPECTED TRAP COULD HAVE SET 


ee eee 
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CLEAR ALL MEMORY SPACE FROM BANK 
5765 007372 


5 
5790 007372 
007372 


5791 007400 
5792 007404 
5793 007410 
5794 007414 
5795 007416 
5796 007420 
5797 007424 


5 
5801 007442 
5802 444 


5816 007526 


012737 


012737 


5 
002454 


002560 
000177 
002556 


001000 


000002 
002152 


001000 


000004 


002556 


172350 
172352 


172350 





ANA2: 


= ee eee —< —- . - 


Die 
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SUBTST <<MATCH ALL CSR'S WITH MEMORY>> 


ESSE SSSSESSSSESKERES ESKER EERE SEES ESSERE ESSE EERE SEREEEESESREESEE EEE ESEEEEES 


; *SUBTEST 


MATCH ALL CSR'S WITH MEMORY 


§ EES SEEKS EERE EEE EERE SEEKS SEES EEEEEESEEEEEESEEEESEESEEESEEHOEEEEEEEOS 


* 


eeeeeeeeeeeeeeeeeeee ee & & 


7$: 


1$: 


2$: 


THE SECOND PART OF THE ANALYSIS MATCHES UP THE CSR’S oN THE MEMORY, AND 
oe ALL THE INFORMATION FOUND IN THE CONFIGURATION TABLE. FOR ECC, 
THIS IS DONE BY TAKING EACH CSR FOUND IN THE At ee SECTION SEQUENTIALLY 
AND CHECKING THROUGH ALL OF MEMORY, ONE BANK AT AT TIME, TO SEE WHICH BANKS 
RESPOND TO THE CSR IN QUESTION. THE FIRST DOUBLE WORD PAIR IN EACH BANK IS 
WRITTEN WITH DATA AND DIAGNOSTIC CHECK MODE SET IN THE CSR AND ARE CHECKED 
FOR EACH BANK THROUGH USE OF TESTADD AND KERNEL INSTRUCTION PAGE ADDRESS 
REGISTERS 4 AND 5. IF WE 
IF NOT, THE ROUTINE CHECKS FOR SINGLE OR DOUB 
IF "OR THE OTHER IS FOUND, THE ERROR ADDRESS IS CHECKED 
TO SEE IF IT IS THAT BANK. IF IT IS, as HAVE A MATCH. 
BANK PASS, FOR EACH CSR PASS, THE PROGRAM 
"I", WHICH DENOTES THE FOLLOWING: 


MEMORY DESCRIPTION 
NON-EXISTANT MEMORY 
MSV11-L/P MEMORY 
MSV11-J MEMORY 


THE END OF EACH 
COMES UP WITH a NUMBER, STORED IN 


MrO! eH 


NOTE THAT PARITY MEMORY WRITES WRONG PARITY TO THE DOUBLE WORDS, THEN LOOKS 
FOR THE PARITY ERROR BIT TO BE SET. IF THE BIT IS SET, WE HAVE A MATCH. 


SEQ 0146 | 


SET4 #100$ ;NE MEMORY TRAPS GO TO 100$ 

MOV #100$,4 

-DSABL CRF 

CLR CHECK ;CLEAR CHECK 

MOV #TESTADD,R1i ;SET UP THE VIRTUAL ADDR. POINTER 

MOV TOTCSRS, ;MOVE CSR MAP INTO R3 

CLR RO ;CLEAR THE CSR POINTER 

CLR RS ;CLEAR THE PROGRAM CSR STATUS POINTER 
TST NO22BIT ;D0 WE HAVE 22 BIT ADDRESSING ? 

BEQ ;BRANCH IF WE DO 

CLR LASTBLOCK ;ADJUST LASTBLOCK INDICATOR FOR 124K MACHINE 
BR ;BRANCH OVER NEXT PIECE OF CODE 

CMP #177,LASTBANK ;I1S THERE Q-BUS MEMORY ABOVE 17776000? 
BEQ i$ ;BRANCH IF NOT 

me _——- ;SET UP A NEW LAST BLOCK INDICATOR 
ASH #9. ,R2 

MOV R2,LASTBLOCK 

MOV #4 ,R2 ;R2 IS INDEX FOR oo ze TABLE 

CLR ENDFLG ;CLEAR END OF MEMORY FLAG 

MOV #1000 , KIPARS ;SET KIPAR4 FOR BANK 1 

MOV #1000, KIPARS ;SET KIPARS FOR BANK i 

ASL R3 ;DOES THIS CSR EXIST? 

BCS 3$ ;BRANCH IF IT DOES EXIST 

ADD #2 ,RO ;INCREMENT THE CSR — 

MOV RO, CSRNO ;STORE IT IN CSRNO ALSO 

TST R3 ;ARE THERE ANY MORE CSR’S TO DO? 

BNE 2$ ;BRANCH IF ALL CSRS NOT DONE 

MOV #1000, KIPAR4 ;RESTORE KIPAR4 


——_—— — ee 


——— TT TT ee —_—— = - —— ee ae 
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MATCH ALL CSR’'S WITH MEMORY SEQ 0147 | 

5817 007534 012737 001200 172352 MOV #1200,KIPARS ;RESTORE KIPARS 
5818 007542 013706 002574 MOV KSTACK , SP ;RESTORE STACK 
5819 007546 000137 010454 JMP SUBAAS , ; JUMP TO SUBAAS IF ALL CSR’'S ARE DONE 
5820 007552 010037 002152 3$: MOV RO, CSRNO ; MAKE SURE CSRNO IS UPDATED 
5821 007556 104424 13$: CACHOFF ; TURN THE CACHE OFF 
5822 007560 000240 NOP 
5823 007562 012737 100000 002412 45$: MOV #100000, TESTADD ;SET UP VIRTUAL ADDRESS TO KIPAR4 
5824 007570 012737 120002 002414 MOV #120002, TESTADD+2 ;SET UP VIRTUAL ADDRESS TO KIPARS 
5825 007576 032762 000040 002664 BIT #BITS, CONFIG(R2) ;IS THIS A BANK TO SKIP 7" tas teet TESTS? 
5826 007604 001402 BEQ 43$ :NO - BRANCH AROUND NEXT INSTRUCTION 
5827 007606 000137 010342 JMP 6$ ;YES - GO TO END OF BANK 
5828 007612 005037 002452 43$: CLR I ;CLEAR THE MEMORY CONFIGURATION COUNTER 
5829 007616 005771 000000 4$: TST acRi) ;TEST TO SEE THAT THERE IS MEMORY PRESENT 
5830 007622 005237 002452 INC I ; MEMORY PRESENT 
5831 007626 PUSH a(R1),a2(R1) ;SAVE THE LOCATIONS UNDER TEST 

007626 017146 000000 MOV a(R1),-CSP) 

007632 017146 000002 MOV @2(R1),-CSP) 
5832 007636 032760 000001 002462 BIT #BITO,CSRINFOCRO) ;IS THIS PARITY MEMORY? 
5833 007644 001014 BNE 34$ ;NO - BRANCH 
5834 007646 052760 000004 172100 BIS #BIT2,CSRADDCRO) ;SET WRITE WRONG PARITY 
5835 007654 012771 123456 000000 MOV #123456 ,a(R1) ; SET THE FIRST — UNDER TEST 
5836 007662 012771 123456 000002 MOV #123456 ,a2(R1) ;SET THE SECOND L 
5837 007670 005060 172100 CLR CSRADDCRO) CLEAR THE CSR 
5838 007674 000411 BR 41$ ;TEST LOCATIONS 
5839 007676 012771 123456 000000 343: MOV #123456, a(R1) :SET THE FIRST LOCATION UNDER TEST 
5840 007704 012771 123456 000002 MOV #123456 ,a2(R1) ;SET THE SECOND LUT 
5841 007712 104503 CLRICSR ;RESET CSR 
5842 007714 104475 CB1CSR SSET DIAG. CHECK MODE IN CSR UNDER TEST 
5843 007716 000240 NOP ;DEBUG AID 
5844 007720 005771 000000 41$: TST acRi) ;READ THE FIRST LUT TO WRITE CKBITS. INTO CSR 
5845 007724 104426 READCSR ;READ THE CSR UNDER TEST 
5846 007726 000240 NOP ;DEBUG AID 

7 007730 013704 002150 MOV CSR,R4 ;GET THE CHECKBITS FROM THE CSR 

5848 007734 000240 NOP ;DEBUG AID 
5849 007736 010437 002434 MOV R4, TEMP ;SAVE IN TEMP FOR LATER 
5850 007742 104503 CLRiCSR ;RESET CSR 
5851 007744 POP @2(R1),aC(R1) ; RESTORE LOCATIONS UNDER TEST 

007744 012671 000002 MOV (SP)+,a2(R1) 

007750 012671 000000 MOV (SP)+,a(R1) 
5852 007754 032760 000001 002462 BIT #BITO,CSRINFOCRO) :;IS THIS “a MEMORY ? 
5853 007762 001004 BNE 42$ :NO - BRANCH 
5854 007764 005704 TST R4 ;DID WE GET A PARITY ERROR? 
5855 007766 100420 BMI 25$ ;YES - FILL IN CONFIG — 
5856 007770 000137 010342 JMP 6$ ;NO - JUMP TO END OF BANK 
5837 007774 072427 177773 423: ASH #-5,R4 ;MANIPULATE THE CSR BITS 
5858 010000 042704 177700 BIC #tC77,R4 :;INTO A USABLE FORM. 
5859 010004 012737 000040 002316 MOV #40,CBITS sMSV11-J CHECK BITS 
5860 010012 000240 NOP ;DEBBUGGING AIDE 
5861 010014 023704 002316 77$: CMP CBITS,R4 ;D0 THE CHECKBITS COMPARE TO WHAT WAS WRITTEN? 
5862 010020 000240 NOP ;DEBBUG AIDE 
5863 010022 001402 BEQ 25$ ;BRANCH IF THERE IS A MATCH 
sacs O10024 000137 010170 JMP 22$ ;ELSE BRANCH IF NOT THE SAME 

;* 
Sent ;* WE COME HERE IF THERE IS A MATCH 
;* 

5868 010050 010004 25$: MOV RO,R4 ;GET THE CSR NUMBER 
5869 010032 000240 NOP ; 


™ oe eee -s ee we ~~ 
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MATCH ALL CSR’S WITH MEMORY SEQ 0148 


—_—— a - 


5870 010034 006204 ASR R4 ;SET IT UP FOR USE IN THE 
5871 010036 000304 SWAB R4 ;CONFIGURATION TABLE. 
5872 01 042704 170377 BIC #170377 ,R4 ‘CLEAR OFF EXTRANEOUS BITS 
5873 010044 050462 002664 15$: BIS R4, CONF IG(R2) ;PUT CSR NUMBER IN CONFIG. TABLE 
5674 O1 016004 002462 MOV CSRINFOCRO),R4 ;GET MEMORY TYPE 
5875 010054 042704 177770 BIC #tC7,R4 ;CLEAR OFF THE EXTRANEOUS BITS 
5876 010060 000304 SWAB R4 ;sMOVE INTO PROPER POSITION 
2 010062 050462 002666 BIS R4 ,CONFIG+2(R2) ;SET IT INTO THE CONFIG TABLE 
;* 
5879 ;* THIS SECTION IS EXECUTED ONLY WHEN THE BANK=1 
5880 ;* 
5881 010066 022737 001000 172350 24%: CMP #1000 , KIPAR4 ;IS THIS BANK 1 ? 
5882 010074 1402 BEQ 30$ ;BRANCH IF TRUE 
5883 010076 137 010342 JMP 6$ ;ELSE JUMP TO END OF THIS BANK 
5884 010102 032737 100020 002434 30$: BIT #BITiS!BIT4, TEMP ;WAS THERE A SBE OR DBE? 
5885 010110 001417 BEQ 10$ ; BRANCH IF NOT 
5886 010112 013704 002434 MOV TEMP ,R4 ;GET CSR CONTENTS 
010 072427 177767 ASH #-9.,R4 ; MAKE ERROR ADDRESS INTO BANK # 
5888 010122 0227 000001 CMP #1,R4 ;ERROR IN BANKS O OR 1? 
5889 010126 301 BGT 10$ ;BRANCH IF NOT 
5890 010130 052762 000001 002664 BIS #BITO,CONFIGCR2) ;SET ERROR FLAG IN CONFIG TABLE 
891 010 105262 002666 INCB CONF IG+2(R2) ;ADD ONE TO BANK ERROR COUNT 
5892 010142 SET CONFGERROR ‘PRINT CONFIG TABLE 
010142 012737 177777 002450 MOV #-1,CONFGERROR 
5893 010150 053737 002670 002664 10$: BIS CONF IG+4, CONFIG ;SET UP INFORMATION IN BANK ZERO 
5894 010156 053737 002672 002666 BIS CONF IG+6,CONFIG+2 
5895 010164 000240 NOP ;DEBUG AID 
4 010166 000465 BR 6$ ; BRANCH 
;* 
e444 ;* IF CHECKBITS DID NOT MATCH, WE COME HERE 
;* 
5900 010170 032737 100020 002150 22%: BIT #BIT15!BIT4,CSR ;SBE OR DBE FLAGS SET? 
5901 010176 001001 BNE 8$ ; BRANCH IF TRUE 
010 000460 BR $ ;CHECK TO SEE IF IT IS MSVi1-J 
5903 010202 013704 002152 8$: MOV CSRNO,R4 ;GET CSRNO 
010 042764 000006 172100 BIC #6 , CSRADDCR4 ) ; TURN OFF DIAG CHECK € ECC DISABLE 
5905 010214 PUSH RO,R1 ; SAVE RO € R1 
010 010046 MOV RO,-(CSP) 
010 010146 MOV R1,-(SP) 
5906 010220 016401 172100 MOV CSRADDCR4),R1 ;GET CSR INFORMATION 
5907 010224 072127 177773 ASH mt Pi , ;SET UP ERROR ADDRESS 
5908 0102350 2701 177600 BIC #tC177,R1 
010 052764 040000 172100 BIS #B1T14, Ce > ladle ;GET ging A ERROR ADDRESS BITS 
5910 010242 0164 172100 MOV CSRADDCR ;READ A CSR 
5911 010246 042764 040000 172100 BIC #BIT14, CSRADDCRA) ;TURN OFF EQB BIT 
5912 010 042700 177037 BIC #tC0740,RO0 ;SET UP EXTENDED BITS 
5913 010260 006300 ASL RO 
914 010 006300 ASL RO 
5915 010264 060001 ADD RO,R1 ;SET UP TOTAL ERROR ADDRESS 
5916 010266 010104 27$: MOV R1,R4 ; SAVE IN R4 
5917 010270 POP R1,RO RESTORE RO € R1 
010270 012601 MOV (SP)+,R1 
010272 012600 MOV (SP)+,RO 
$918 010274 072427 000005 ASH #5,R4 ;SET ERROR ADDRESS ‘A IN PAR NOTATION 
5919 010300 020437 172350 CMP R4,KIPAR4 ;DOES IT wry KIPAR4? 
5920 010304 001001 BNE 28$ ;BR ANCH IF FALSE 
5921 010306 000403 BR 35$ ;YES - MARK’ INFO IN CONFIG TABLE 





/CVMJAAO MSV11-J MEMORY DIAG. 
MATCH ALL CSR‘S WITH MEMORY 


| 
' 
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5922 010310 


30 
5927 010336 
5928 
5929 
5930 
5931 010342 
5932 344 


5936 010364 
5937 010372 
5938 010400 
5939 010402 

0402 
5940 010410 


5947 010440 
5948 

5949 010444 
5950 010450 


A TTT 


062706 
000137 


172352 


000001 
002666 


177777 
010030 
002564 
000004 
001000 
172350 
177000 


177777 


000004 
010342 
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002664 


002450 


172350 
172352 
172350 
002564 


172350 


283: 
35$: 


6$: 


70$: 


CMP R4,KIPARS 
BNE 6$ 
BIS #BITO,CONFIGCR2) 
INCB CONF IG+2(R2) 
SET CONF GERROR 
JMP 25$ 
;* 
;*END OF BANK ROUTINE 
;* 
CLRiCSR 
TST ENDFLG 
BNE 70$ 
ADD #4 ,R2 
ADD #1000, KIPAR4 
MOV KIPAR4 ,KIPARS 
CMP #177000, KIPAR4 
BNE 70$ 
SET ENDFLG 

45$ 
MP LASTBLOCK , KIPAR4 
BLOS 19$ 
JMP 45$ 
ADD #2,RO0 
NOP 
CACHON 

1$ 
ADD #4, SP 
JMP 6$ 


MOV 
;YES - MARK INFO IN CONFIG TABLE 


;CLEAR THE CSR UNDER TEST 

;ARE WE AT TOP OF MEMORY? 

‘IF SO THEN EXIT 

;UPDATE CONFIGURATION POINTER 

;UPDATE KIPAR4 TO NEXT BANK 
;AND UPDATE KIPAR4 

;ARE WE AT BANK 177 
;BRANCH IF NOT 

;WERE AT LAST BANK 

MOV #-1,ENDFLG 


‘HAVE WE DONE THE WHOLE MEMORY SPACE? 
;BRANCH IF DONE sR-C 


IF NOT DONE 
S INCREMENT CSR POINTER 
;DEBUG AID 
;TURN ON THE CACHE 
; JUMP TO TRY NEXT CSR 


sRESTORE STACK ; 
;GO TO END OF BANK ROUTINE ; 


ee ee ee ee 


SEQ 0149 
;DOES IT EQUAL KIPARS? 
;BRANCH IF FALSE 
;SET BANK ERROR FLAG 
; INCREMENT BANK ERROR COUNTER 
;PRINT CONFIG TABLE 
#- 1, CONFGERROR 


——— lied 


—_——_—. 
— - -—\<—- em rm ns  s—F —- — —— = 
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MATCH ALL CSR‘S WITH MEMORY SEQ 0150 


—- —<--—— 


5952 010454 104423 SUBAAS: CACHON ;MAKE SURE THE CACHE IS ON 
5953 010456 104472 ECCINIT ; TRAP ON DOUBLE BIT ERRORS (NORMAL ) 
5954 010460 NEWTST <<TEST BANK 0 ACCESSES>> | 
{FREESE EEEERE ERASE EAE EER EERE EE EER ERSTE EERE REEEE ERE SEER EERE EEE SEER EERE EERE EES 
;#TEST 2 TEST BANK 0 ACCESSES , 
5 EREEEEEREEEERES ERASE REESE EERE EE EEE SEES EERE EAEEEEE EERE EERE EEEEEEEE EERE EERE REE 
010460 000004 COPE 
5955 ;THIS DOES A “TST” INSTRUCTION ON EVERY LOCATION IN BANK #0 TO SEE 
5956 ;1F IT GETS ANY PARITY TRAPS. ) 
5957 ;SINCE EVERY LOCATION IS EITHER LOADED OR WRITTEN INTO BY THE ar tala | 
5958 ;PRIOR TO THIS POINT - THEN A PARITY ERROR IMPLIES THAT THERE IS A 
5959 sHARDWARE FAILURE IN THE MEMORY | 
5960 THESE ERRORS ARE COUNTED AND A FATAL ACTION IS TAKEN 
5961 010462 005037 002072 éLR PARCNT ;CLEAR PARITY ERROR COUNTER 
5962 010466 012737 000001 002076 MOV #1,NOPAR ;SET THE NO PARITY ERROR FLAG | 
5963 010474 005037 002070 CLR NEMCNT ;CLEAR NON-EXISTANT MEMORY ERROR COUNTER 
5964 010500 012737 000001 002100 MOV #1 ,NONEM ;SET THE NON-EXISTANT MEMORY ERROR MODE TO COUNT 
5965 010506 SET4 #NONEXIST ;TRAPS TO 4 GOTO NONEXIST 
010506 012737 034050 000004 _ pers .4 
5966 010514 5 CLR RO 
5967 010516 012701 040000 MOV #SIZE,R1 
5968 010522 104424 CACHOF F ; TURN CACHE OFF 
5969 0105 005720 1$: TST CRO)+ ;SEE IF I CAN DO A READ ACCESS WITHOUT A PARITY TRAP 
5970 010526 077102 SOB R1,1$ 
5971 010530 104423 CACHON ; TURN CACHE ON 
5972 ;SEE IF ANY FAILURES 
5973 010532 005737 002072 TST PARCNT ;ANY PARITY ERRORS? 
5974 010536 001403 EQ 2$ ;NO - SKIP 
5975 010540 FATAL 3 
010540 005237 002064 INC FATAL$ ;SET FATAL INDICATOR 
010544 104003 ae ie 
5976 010546 005737 002070 2$: TST NEMCNT ;ANY NON-EXISTANT MEMORY CHOLES)? 
5977 010552 001406 BEQ 3$ ;SKIP IF EQUAL 
5978 010554 162737 000002 002034 SUB #2,ADDRESS s;UPDATE 1ST ADDRESS FAILURE FROM AUTO INCREMENT #@ 
5979 010562 FATAL 4 
010562 005237 002064 NC FATAL $ ;SET FATAL INDICATOR 
010566 104004 oe po a 
5980 010570 053737 002106 002664 3%: BIS CPUBIT , CONFIG ;SET CORRECT ACCESSED BIT ON BANK 0 
5981 010576 RES4 sRESET TRAPS TO 4 TO DEFAULT 
10576 012737 034114 000004 MOV #TIMEOUT ,4 
10604 022737 000005 004010 CMP #5 ,PROTYP ;I1S THIS AN 11/83/84 ? 
010612 001002 BNE 101$ ;BRANCH IF NOT 
sere 005037 177766 ones CLR CPUERR ;CLEAR OUT THE CPU ERROR REGISTER BITS 
; THAT A EXPECTED TRAP COULD HAVE SET 
seas .DSABL CRF 
5983 010620 SUBTST <<ENABLE ECC FOR CORRECT TRAPS>> 
Pirtitiiittiititiiitiiittittt iit iti titi iii r iit iii titi rir 
; *SUBTEST ENABLE ECC FOR CORRECT TRAPS 
Sitttit iii ti itiitiititii¢i iii titi iiti i iit i iti iti rit ii irri 
5984 010620 IF #SWO SET.IN @SWR OR ACTFLAG IS TRUE | 
010620 032777 000001 172010 BIT #SWO,aSWR : 
010626 001003 BNE L52 | 


re ~~ 


= -— ae —— < ome mm re eee ——— << = . eee es 


tie 
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ENABLE ECC FOR CORRECT TRAPS 


} 

| 

| 010630 005737 002350 TST ACTFLAG 
001402 BEQ L53 


010634 
010636 | LS2:sssaae 
5985 010636 104506 ENASBE ; TRAP ON SINGLE BIT ERRORS 
5986 010640 ELSE 
010640 000401 BR L54 
010642 LS3:sssa33 
5987 010642 104472 ECCINIT ;TRAP ON DOUBLE BIT ERRORS (NORMAL) 
5988 010644 END ;OF IF #SWO 
010644 LS4:ssss33 


SEQ 0151 


’ 


a — — ———  — —<—_ ««—« 
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ENABLE ECC FOR CORRECT TRAPS SEQ 0152 | 


5991 010644 NEWTST <<TEST BANKS 1-200 COCTAL) FOR ZEROS & ONES>> 
EEE EREREREEEEEEE ERE ER EE EERE EREREREREE EERE EEE REE ESE EEEE SEER EEE EEE EERE HER EERE EEE 
;#TEST 3 TEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES 
5 EERE EEEEERERERERER EERE EEE EEERERERE AEE EEE EERE EEE SEES EERE EEE ESSERE EEE RE ER EROS 
010644 000004 COPE 
5992 ;EACH BANK IS TESTED FOR EXISTANCE AND IF IT EXISTS 
$44 : THEN *. IS TESTED FOR ZEROS & ONES. 
5995 PROTECTED BANKS (WHERE THE PROGRAM IS) ARE ONLY TESTED BY 
5996 "TST" INSTRUCTIONS LIKE BANK #0 
5997 ;ANY BAD BANKS ARE LOGGED IN THE CONFIGURATION TABLE. 
5996 ;THIS ROUTINE IS ONLY DOING A SMART SIZE - NOT ACTUAL TESTING! 
5999 010646 005037 002102 CLR BANK 
6000 010652 012737 000001 002076 MOV #1,NOPAR ;SET NO PARITY ERROR FLAG 
01 012737 000002 002100 MOV #2 , NONEM ;SET NON-EXISTANT MEMORY MODE TO EXIT TEST LOOP 
6002 010666 SET4 #NONEXIST ; TRAPS TO 4 GOTO NONEXIST 
010666 012737 034050 000004 y —_— 
6003 010674 012737 011420 002522 MOV #MTST3+4,LINK1 ;SET UP LINKS 
0107 012737 011422 002524 MOV #MTST3+6,LINK2 
6005 010710 S23 2102 TAG9$: INC BANK 
6006 010714 023737 002556 002102 CMP LASTBANK , BANK ; DONE ? 
6007 010722 103451 BLO TAG2$ ;YES - SKIP TO NEXT TEST 
6008 010724 013701 002102 MOV BANK ,R1 
6009 010730 301 ASL Ri 
6010 010732 30 ASL Ri ;BANK * 4 
6011 010734 010137 21 MOV Ri, BANKINDEX 
6012 010740 005037 002074 CLR PATERR ;CLEAR PATTERN ERROR COUNTER 
6013 010744 005037 002072 CLR PARCNT ;CLEAR PARITY ERROR COUNTER 
6014 010750 005037 002070 CLR NEMCNT ;CLEAR NON-EXISTANT MEMORY COUNTER CHOLES) 
6015 010754 MAP BANK ;MAP SUPERVISOR SPACE (TEST AREA) TO BANK 
010754 010346 MOV R3,-CSP) 
010756 013703 002102 MOV ANK ,R3 
010762 004737 035716 CALL MAPPER 
DSABL CRF 
010766 012603 MOV (SP)+,R3 
6016 010770 105761 002664 TSTB CONF IGC(R1) ;1S THIS BANK PROTECTED? 
6017 010774 100542 BMI TBANK ;YE GO TEST BANK SPECIAL 
6018 010776 012777 000207 171516 WARNI1: MOV #207, @LINK1 ;PUT "RETURN" INSTRUCTION AFTER WRITE ROUTINE 
6019 011004 012700 060000 MOV #FIRST,RO 
0110190 01 MOV RO,R4 
6021 011012 012701 040000 MOV #SIZE,R1 
6022 011016 010103 MOV R1,R3 
6023 011020 005002 CLR 2 ;DATA IS ZEROS 
6024 011022 104424 CAC ; TURN CACHE OFF 
6025 011024 TESTAREA ;ENTER SUPERVISOR MODE 
011024 053737 002552 177776 —™ —_— ;GO TO SYSTEM TEST MODE 
6026 011032 004737 011414 CALL MTST3 
6027 011036 104417 2$: KERNEL ;ENTER KERNEL MODE 
6028 011040 104423 CACHON ;TURN CACHE ON 
011042 40 NOP 
6030 011044 16 BR TAG3$ ;SKIP NEXT INSTRUCTION 
6031 011046 005037 002102 TAG2$: CLR BANK 
6032 011052 RES4 ;RESET TRAPS TO 4 TO DEFAULT 
011052 012737 034114 000004 MOV #TIMEQUT ,4 
011060 022737 000005 004010 CMP #5,PROTYP ;IS THIS AN 11/83/84 ? 
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i MSVil-J MEMORY DIAG. 
T3 TEST BANKS 1-200 (OCTAL) FOR ZEROS & 


011066 
011070 
011074 


6033 011074 
6034 011100 
6035 011102 
6036 
6037 011110 
6038 

011114 


011122 
011126 


6069 011254 
6070 011262 
011262 
6071 011270 
6072 011276 
6073 
6074 
6075 011302 
011302 
6076 011304 
6077 011312 
6078 011316 


2 
005037 


104424 
053737 


052760 


012737 
053760 
000137 


010146 
012737 
012700 
012701 


177766 


002076 
002070 


002552 
171376 


002074 
002072 
002070 
060000 
040000 
900240 
002552 
011414 


002104 
002074 


002072 
002070 
000001 
177777 


002106 
010710 
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177776 


171316 


177776 


002664 


002450 
002664 


002100 


2s: 


3$: 


4$: 


TSTBANK : 


em mm ——_—=— «= — - _ 


K12 


SEQ 0153 
BNE 01$ ;BRANCH IF NOT 
CLR CPUERR ;CLEAR OUT THE CPU ERROR REGISTER BITS 
; THAT A EXPECTED TRAP COULD HAVE SET 

.DSABL CRF 
CLR NOPAR ; INDICATE DEFAULT PARITY ACTION 
BR SUBAAI 
TST NEMCNT ;ANY TRAPS? 
BEQ 1$ ;NO - SKIP 
BR TAG9$ ;NOW - TRY NEXT BANK 
CACHOFF ; TURN CACHE OFF 
TESTA ;ENTER SUPERVISOR MODE 
<o™ jae ne PSW ;GO TO SYSTEM TEST MODE 
CALL @LINKe ;FINISH PATTERN 
KERNEL ;ENTER KERNEL MODE 
CACHON ; TURN CACHE ON 
NOP ;DEBUG AID 

TST PATERR ;ANY PATTERN ERRORS 
BNE 2$ ;YE SKIP 

TST PARCNT ; ANY PARITY ERRORS 
BNE 2$ sYES - SKIP 

TST NEMCNT ;ANY NON EXISTANT MEMORY 
BNE 2$ ;YES - SKIP 
MOV #F IRST,RO 
MOV RO,R4 
MOV #SIZE,R1 

MOV R1,R3 
MOV ONES ,R2 ;DATA IS ONES 
MOV #000240, @LINK1 ;PUT “NOP” INSTRUCTION BACK IN SUBROUTINE 
CACHOFF ; TURN CACHE OFF 

TESTAREA SENTER TEST MODE 

BIS TESTMODE , PSW ;GO TO SYSTEM TEST MODE 
.DSABL CRF 

CALL MTST3 ;D0 IN MEMORY IF NOT 

ERNEL ;ENTER KERNEL MODE 

CACHON ; TURN CACHE ON 

NOP ;DEBUG AID 
MOV BANKINDEX ,RO 

TST PATERR ;ANY PATTERN ERRORS? 

BNE 3$ sYES - 

TST PARCNT S ANY PARITY ERRORS? 
BNE 3$ :YES - SKIP 

TST NEMCNT ;ANY HOLES? 

BEQ 4$ s;NONE - SKIP 
BIS #B ITO, CONF IGCRO) ;SET ERROR BIT IN THIS BANK 

SET CONF GERROR FORCE PRINTING OF CONFIGURATION TABLE 

MOV #-1,CONFGERROR 

BIS CPUBIT , CONF IGCRO) ;SET ACCESSED BIT 

JMP TAG9$ 

;TEST A PROTECTED BANK 

: PUSH Ri 

MOV R1,-(SP) 

MOV #1 ,NONEM ;SET NON-EXISTANT MEMORY TO COUNT 
MOV #FIRST,RO 

MOV #20000,R1 


—_— —— Ml ne a cr, a sama 
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TEST BANKS 1-200 (OCTAL) FOR ZEROS €& 


6079 011322 
6080 011324 
011324 
6081 011332 
6082 011334 
6083 011336 
6084 011340 
6085 011342 
6086 011350 
011350 
6087 011352 
011352 
011356 
6088 011360 
6089 011366 
011366 
6090 011374 
011374 
6091 011374 
011374 
011400 
6092 011402 
6093 arte! 


6103 011436 


104424 
053737 
005720 
077102 
104417 
104423 
012737 
012601 
005737 
001406 
052761 
012737 


005737 
001003 
053761 


000207 


002552 


000002 


002072 
000001 
177777 


002070 
002106 


010710 


002074 


177776 


002100 


002664 
002450 


002664 


4$: 


MTST3: 


2s: 


3$: 


i 
TESTMODE ,PSW 
; CRF 
TST (RO)+ 
SOB R1,4$ 
MOV #2, NONEM 
Ri 
IF PARCNT NE #0 
BIS #BITO,CONFIG(R1) 
SET  CONFGERROR 
END ;OF IF PARCNT 
IF NEMCNT EQ #0 
BIS CPUBIT,CONFIG(R1) 
END ;OF IF NEMCNT 
JMP TAG9$ 
MOV R2,CRO)+ 
SOB R1,MTST3 
NOP 
MOV (R4)+,R1 


CMP R1,R2 

BEQ 

INC PATERR 
R3,2$ 

RETURN 


_—_——- ~~ I te me ——=— - - - -_— 


SEQ 0154 


; TURN CACHE OFF 
;ENTER TEST MODE 


;GO TO SYSTEM TEST MODE 


ENTER KERNEL MODE 


; TURN HE ON 
;RESET NON-EXISTANT MEMORY TO EXIT TEST LOOP 


MOV (SP)-,R1 
TST PARCNT 
BEQ L55 
;ERROR BANK 
L5S:ssssss 
TST NEMCNT 
L56 
;ACCESSED BANK 
LS56:sssis3 
;WRITE MEMORY TO PATTERN 
;DO TILL DONE 


; THIS TS EITHER A NOP OR RETURN 
READ DATA 

sDOES IT MATCH ? 

‘IF NOT COUNT ERRORS 


sANY WAY DO ALL MEMORY 
;DONE... .RETURN 


- _—_— — -— 


we ee ee ee 


MJAAO MSV11-J MEMORY DIAG. 
TEST BANKS 1-200 COCTAL) FOR ZEROS €& 


6105 011440 


6106 
6107 


6106 
6109 011440 


011466 
6113 011470 
6114 011474 
6115 011502 
6116 011510 

011510 
11512 
011512 
011516 
011516 
011516 
011 


1 
1 
1 
1 524 


6117 
6118 
6119 
6120 


052760 
000402 
005237 


023737 
002347 


002102 


a OO + re —_—- - - ~-2. eo oe 


Mie 
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002102 
002664 


002556 002102 


SUBAAI: SUBTST <<FIND SHADOW INHIBIT MODE POINTERS>> 
5 EREEEEEEREESSEEREAESEEESEEESEESER ESE SEARS EEE CEESEERERER CERES H EERE HERE ORES ES 
; *SUBTEST FIND SHADOW INHIBIT MODE POINTERS 
5 EEREESEREESSSEEEEEESESEEEE SESE SES ERESEEEEREEESE EER EEEEEEEERE SERRE REE E EEE ORES 
;* THIS SECTION LOOKS FOR INTERLEAVED MSV11-J MEMORIES AND FIGURES OUT 
;* WHERE THE SHADOW INHIBIT MODE POINTERS ARE LOCATED. THESE AREAS 
;* ARE THEN MARKED AS PROGRAM SPACE. 
;RESET BANK TO ZERO 


CLR BANK 
SHADL1: CALL EXBANK ;SET BANK PARAMETERS 


MOV BANKINDEX ,RO 
IF ACFLAG IS TRUE AND INTFLAG IS TRUE 
TST ACFLAG 


BEQ L57 
TST INTFLAG 
BEQ L57 


ADD #40, ;POINT TO oo ee ti + 8 
ADD #20,BANK ;POINT TO BANK + 
an #BIT7,CONFIGCRO) ;MAKE NEW BANK PROGRAM SPACE 


L 
INC BANK ;GO TO NEXT BANK 
END; OF IF ACFLAG 


CMP LASTBANK , BANK 
BGE SHADL 1 


L60:; 
;HAVE WE DONE ALL THE BANKS? 
;BRANCH IF NOT 


SEQ 0155 


— —— ee ee 


- - ES 


Nie 
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‘FIND SHADOW INHIBIT MODE POINTERS 


6123 011526 


SEQ 0156 
NEWTST <<ECC INHIBIT MODE POINTER TEST>> 


§ FSS SSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSESSSSSSSSSESS SSS RSS SRS SESE SSS ESESEes 


s*TEST 4 ECC INHIBIT MODE POINTER TEST 


011526 000004 S 
124 ; THE MSV1i-J OR MF11S-K INHIBIT ECC DISABLE AND DIAGNOSTIC CHECK MODE 
6125 ;O0N THE BOTTOM FIRST OR SECOND 16K WORDS CONT “te BY A CSR. a. 
6126 ;1S CONSIDERED TO BE A PROTECTED BANK BY THE PROGRAM. IT MAY BE 
6127 ;sQUITE COMPLEX TO DETERMINE ON A GIVEN SYSTEM CONFIGURATION. WHICH 
e189 ~ i S CAN BE PROTECTED; 
6130 ; THIS oe Ae ATTEMPS TO CREATE A DOUBLE BIT ERROR IN ADDRESS 0 € 2 
6131 ;0F EVERY ECC BANK. ECC HARDWARE WILL PREVENT THIS FROM HAPPENING 
613 ;IN aos LS BANKS WHICH SHOULD ALWAYS INCLUDE BANK ZERO - WHERE 
613 ; THE PROGRAM IS. 
6134 ; 
6135 
6136 WARNING: S!28ffaeres 
6137 IN CASE OF HARDWARE FAILURE IT IS COMMON THAT A DOUBLE BIT ERROR 
6138 ; WILL CREATED ON THE KERNEL STACK € "CRASH" THE DIAGNOSTIC 
6139 ;DURING THIS ROUTINE. ONLY CLUE IS THAT YOU CAN GET AS FAR AS 
6140 ; THIS ROUTINE BUT NOT PAST IT! 
6141 Stet ty 104424 CACHOFF ; TURN CACHE OFF 
6142 011532 012737 177777 002156 MOV #-1,0LDCSR 
6143 011540 FOR BANK := #0 TO LASTBANK 
011540 005037 002102 CLR BANK 
011544 B6:sss33 
6144 011544 012701 060000 MOV #FIRST,R1 ;SET UP VIRT ADDR POINTER 
6145 011550 004737 040052 CALL EXBANK 
6146 011554 013700 002104 MOV BANKINDEX,RO 
6147 011560 IF ACFLAG IS TRUE 
011560 005737 002116 TST ACFLAG 
011564 001436 BEQ L61 
6148 011566 IF MKFLAG IS TRUE 
011566 005737 002120 TST MKFLAG 
011572 001433 BEQ L62 
6149 011574 IF SKIPMK IS FALSE 
011574 005737 002342 TST SKIPMK 
011600 1030 BNE L63 
6150 011602 012703 000002 MOV #2 ,R3 ;SET INDEX COUNTER 
6151 011606 116002 002665 MOVB CONFIG+1(RO),R2 
itt | 011612 006302 ASL Re 
6153 011614 042702 177741 BIC #tC36,R2 
6154 011620 010237 002152 MOV R2, 
6155 011624 IF CSRNO NE OLDOCSR 
Sern 023737 002152 002156 CMP CSRNO,OLDCSR 
0116 001413 BEQ L64 
6156 011634 013737 002152 002156 MOV CSRNO,OLDOCSR 
6157 011642 IF PFLAG IS FALSE 
011642 005737 002122 TST PFLAG 
011646 001003 BNE L65 
158 011650 052760 000100 002664 BIS oy", +: tieate 
6159 Ere END; OF IF P 
0116 L65S:ssss33 
6160 011656 004737 011750 CALL IMPTEST 
6161 011662 END; OF IF CSRNO 
011 L6O4:sis533 





ee en eee er ee ee ee 


—————— | ce 


ee a 


| ytuaso nyi4 ewoRy DIAG. macRa 


6162 O11 
O11 
6163 011662 


6164 0 


~~ 
—— 
arm 


cooooococco 
ed ed ee ey ead 
s~aA SI SI 


sana 
SS 


PUVUVCOAS & SURES 


be ee be he pe pe be he pe pe be 


~~~ 


ooocoo°coco 
PSS 


—_— el 


002102 
002102 


000200 
035716 


002102 
000001 
002350 


012172 


13 
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002556 


170712 


END; OF IF SKIPMK 


LO3S:sseca: 

END; OF IF MKFLAG 
on, & - L62:sisaie 
. LOl:isssass 


END; OF FOR BANK -_ 
CMP BANK ,LASTBANK 
BLE B6 


SSD 
MAP ;MAP TEST SPACE TO BANK 
MOV R3, -(SP) 
MOV #200 ,R3 
“OSABL CRF 
; MOV (SP)+,R3 
a SWO SET IN @SWR OR ACTFLAG IS TRUE 
= < BIT #SWO,aSWR 


BNE 
TST ACTFLAG 
BEQ L67 


L66: 
;TRAP ON SINGLE BIT ERRORS 


ese 
BR L70 
LOTsusaaaE 
ECCINIT ; TRAP ON DOUBLE BIT ERRORS (NORMAL ) 
END; OF IF #Swo 
L7O:ssssse 
CACHON ; TURN THE CACHE BACK ON 
JMP SUBAAR ;JUMP OVER THE SUBROUTINE 


SEQ . 


wn ——_—-_ 


—i— —— _- ee + “-e . —s _- _—-, . 


Rashad 
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ECC INHIBIT MODE POINTER TEST SEQ 0158 
617? o1l782 THRE ST AAP BANK MAP SUPERVISOR SP 
) ; V ACE (TEST AREA) TO BA 
011752 010346 | MOV RB. -CEP) ) TO BANK 
011754 013703 002102 MOV BANK ,R3 
| 011760 004737 035716 CALL MAPPER 
-DSABL CRF 
011764 012603 MOV (SP)+,R3 
6178 011766 005005 CLR R5 
6179 011770 012737 020000 002150 MOV #BIT13,CSR 
6180 011776 TESTAREA s;ENTER TEST MODE 
011776 053737 002552 177776 = ome ;GO TO SYSTEM TEST MODE 
6181 012004 PUSH (Ri) ;SAVE TEST LOCATION 
012004 011146 MOV (R1),-CSP) 
6182 012006 060301 ADD R3,R1 ; INDEX TO NEXT LOCATION 
6183 012010 PUSH (R1) ;SAVE TEST LOCATION 
012010 011146 MOV (R1),-CSP) 
6184 012012 104505 CHK1DIS ;DISABLE ECC & WRITE CHECKBITS- FOR 1 CSR 
6185 012014 010411 MOV R4,(R1) ;WRITE CHECKBITS (ALL ZEROS) 
1 160301 SUB R3,R1 ~ 
6187 012020 010411 MOV R4,(R1) 
6188 012022 104503 CLRiCSR ;CLEAR CSR 
6189 012024 005711 TST (R1) ;READ CHECKBITS INTO REAL CSR 
otey 012026 104501 WAS1DBE ;WAS THERE A DOUBLE BIT ERROR 
ee ;THIS MAKES SURE THAT SBE'S DON'T LOOK LIKE PROTECTED AREAS 
6194 012030 ON.NOERROR ;1 
012030 103435 BCS L71 
6195 012032 012737 020000 002150 MOV #B61T13,CSR 
6196 012040 104505 CHK1DIS ;DISABLE ECC €& WRITE CHECKBITS FOR 1 CSR 
6197 012042 013711 002614 MOV  ONES,(R1) 
104503 CLRiCSR ;CLEAR CSR 
6199 012050 005711 TST (CRI) 
6200 012052 104501 WASIDBE ;WAS THERE A DOUBLE BIT ERROR 
6201 012054 ON.NOERROR ;2 
012054 103423 BCS L72 
6202 012056 104515 CBREG ; ENABLE gaa BIT REGISTER 
6203 012060 012737 023140 002150 MOV #23140,CSR ;WRITE DBE'S IN CSR 
6204 012066 104505 CHKiIDIS ;DISABLE ECC é WRITE CHECKBITS FOR 1 CSR 
6205 012070 010411 MOV R4,(R1) 
6206 012072 104503 CLRiCSR ;CLEAR CSR 
6207 012074 005711 TST (Ri) 
6208 012076 104501 WASIDBE ;WAS THERE A DOUBLE BIT ERROR 
6209 012100 ON.NOERROR ;3 
012100 103411 BCS L73 
6210 012102 104513 CBREG ;ENABLE CHECK/SYNDROME BIT REGISTER 
6211 012104 012737 023604 002150 MOV #23604,CSR ;WRITE DBE'S IN 
6212 Ol2ll2 104505 CHK1DIS ;DISABLE ECC & WRITE CHECKBITS FOR 1 CSR 
6213 012114 010411 MOV R4,(R1) 
6214 012116 104503 CLRiCSR ;CLEAR CSR 
6215 012120 005711 TST (R1) ; 
6216 Ol2122 104501 WASIDBE ;WAS THERE A DOUBLE BIT ERROR 
6217 012124 END ;OF ON.NOERROR ;3 


LiSsssss338 


012124 
6218 012124 END ;OF ON.NOERROR ;2 
012124 


eee eee em 


ects ‘ae ee Li , : : ,  LL  LD n eee we eee eee 


ee . 


D135 
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ECC INHIBIT MODE POINTER TEST 


6219 rte 


END ;OF ON.NOERROR ;1 


SEQ 0159 


L7lsssssss 


6220 012124 ON.ERROR 
012124 10300 BCC L74 

6221 012126 005205 INC RS ; IDENTIFY AS BAD BANK 

6222 oteiss END ;OF ON.ERROR 

23 012130 104471 ECC1DIS ; DISABL e- ERROR’ CORRECTION 

6224 012132 010411 MOV R4,(R1) ;CLEAR OUT DOUBLE BIT ERROR: 

6225 012134 060301 ADD R3,R1 ; INDEX TO SEC 

6 0121 010411 MOV R4,(R1) ;CLEAR OUT DOUBLE BIT ERROR! 

6227 012140 104503 CLR1CSR 

6228 012142 005705 TST R5 

6229 0121 001405 BEQ 1$ 

6230 012146 002664 BIS RS, CONFIGCRO) 

6231 012152 105260 002666 INCB CONF IG+2(RO) 

6232 012156 1040 ERROR +36 

6233 012160 1$: POP (R1) sRESTORE TEST LOCATION (2ND WORD) 
012160 012611 MOV (SP)+,(R1) 

6234 012162 160301 SUB R3,R1 ;GO BACK TO FIRST WORD 

6235 012164 POP (R1) sRESTORE TEST LOCATION (1ST WORD) 
012164 012611 MOV (SP)+,(R1) 

6236 012166 104417 KERNEL 

oes: 012170 000207 RETURN 

6239 012172 SUBAAR: SET STOPOK ;PROGRAM CAN NOW BE HALTED 


012172 


TT 


012737 177777 002420 


MOV #-1,STOPOK 


—— a 


— eon @ <— oe oe Oe 


se 
—— tt —- ——_— -—<—- — — ee ee eee Ce ———_— ——— —-< 
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ECC INHIBIT MODE POINTER TEST SEQ 0160 


— << oe oe 


6242 012200 SUBTST <<LEGAL CONFIGURATION CHECK>> 
WITT T IIIT TT TLL LL TLL TLL ELL LLL LLL LLL LLL LLL LLL TTT tit 
;*SUBTEST LEGAL CONFIGURATION CHECK 
TTTTITT LILLE LILLE LLL LLL ELL LLL LLL LLL tiiiittiitiit. 
6243 012200 012700 000020 MOV #16. ,RO 
6244 012204 012701 002462 MOV #CSRINFO,R1 
6245 012210 005021 i$: CLR (R1)+ 
6246 012212 977002 SOB RO,1$ 
6247 012214 FOR BANK := #0 TO LASTBANK 
012214 005037 002102 CLR BANK 
012220 BVissteae 
6248 012220 004737 040052 CALL EXBANK 
oes 012224 013700 002104 MOV BANKINDEX,RO 
6251 012230 IF ACFLAG IS TRUE 
012230 005737 002116 TST ACFLAG 
001444 BEQ L75 
6252 012236 116003 002665 MOVB CONFIG+1(RO),R3 
6253 012242 042703 177760 BIC #tC17,R3 
6254 012246 303 ASL R3 
6255 012250 005263 002462 INC CSRINFOCR3) 
6256 012254 IF MKFLAG IS TRUE 
012254 005737 002120 TST MKFLAG 
012260 001432 BEG L76 
6257 ;MAKE SURE THAT EACH BANK HAS NO MORE THAN 2 CSRS 
6258 012262 BEGIN LEGALCSR 
012262 BlO:sisee: 
6259 012262 IF INTFLAG IS TRUE 
012262 005737 002136 TST INTFLAG 
012266 001423 BEQ L77 
6260 012270 116003 002665 MOV CONF IG+1(RO),R3 
6261 012274 010304 MOV R3,R4 
6262 012276 042703 177760 BIC #tC1i7,R3 
6263 012302 072427 177774 ASH #-4, 
6264 012306 27 177760 BIC #tC17,R4 
6265 012312 IF R3 EQ R4 
012312 020304 CMP R3,R4 
012314 001007 BNE L100 
012316 042760 014000 002666 BIC #BIT11!BIT12,CONFIG+2(RO) 
6267 012324 042760 170000 002664 BIC #170000 , CONFIG(RO) 
6268 012332 LEAVE LEGALCSR 
012332 000405 BR E10 
6269 012334 END; OF IF R3 — 
6270 012334 ELSE 
012334 000401 BR L101 
012336 L77isssese 
6271 012336 LEAVE LEGALCSR 
012336 000403 BR E10 
6272 012340 END; OF IF INTFLAG aes 
6273 012340 SET CONFGERROR 
012737 177777 002450 MOV #-1,CONFGERROR 


012340 
6274 012346 
012346 
6275 012346 
012346 





END LEGALCSR 
END ;OF IF MKFLAG 


— eee 


| 


6276 012346 
012346 
6277 012346 
012346 
012352 
012360 


012362 
6278 012362 
2362 


6310 012536 
012536 


012540 
6311 012542 
2 546 


6319 012574 
6320 012600 
6321 012602 


6322 012604 
6323 012606 
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002102 
002102 


012602 
000177 


000010 
012724 
002664 
000002 
170377 
177771 
010000 
000001 
000004 
000340 
012602 
012724 
012602 
000002 
000040 
012602 


000774 
000002 


000004 


002556 


F135 
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002556 


002462 
002462 


002666 
012602 


002664 





2s: 


3$: 


4$: 


5$: 


6$: 


END ;OF IF ACFLAG 
END; OF FOR BANK 


PUSH R5,RO 
CLR RO 
CLR Ri 
CLR 
CLR MBERR 
CMP #177,CSRINFOCR1) 
BGE S$ 
CMP #10, CSRINFOCR1) 
BGE 3$ 
ILLCSR 
MOV CONFIGCRO),RS 
BIT #BIT1,R5 
BEQ 4$ 
BIC #tC7400,R5 
ASH #-7,R5 
CMP R5S,R1 
BNE 4$ 
BIT yale CONFIG+2(RO) 
BNE 4s 
MOV #1,MBERR 
ADD #4 ,,RO 
CMP #340 ,RO 
BNE 5 
TST MBERR 
BEQ > 
CALL ILLCSR 
CLR 0 
CLR MBERR 
ADD #2,R1 
CMP #40,R1 
BNE 2$ 
POP RO,RS 
CLR MBERR 
MOV #774,RO 
BIT #BIT1,CONFIGCRO) 
BNE 7$ 
SUB #4 ,RO 
BR 6$ 
ASR RO 
ASR RO 
MOV RO, LASTBANK 
BR SKUJ 
WORD 0 
WORD 0 
CLR RO 


SEQ 0161 
L7Ssssssae 


INC BANK 
CMP BANK ,LASTBANK 
BL - B7 


E7: 
;SAVE CONTENTS OF RS, RO 
MOV R »- CSP) 
-(SP) 
;CLEAR REGISTERS 


;CLEAR ERROR INDICATOR 

;IS CURRENT CSR <= 177 

;BRANCH IF SO 

;1S CURRENT CSR < 10 

;BRANCH IF SO 

;CALL ERROR ROUTINE 

; TRY NEXT CSR 

;MOVE LOW WORD TO RS 

;DOES MEMORY EXIST HERE? 

;BRANCH IF NOT 

; ISOLATE CSR NUMBER IN 

;REGISTER 5 

;IS IT La CURRENT CSR? 

;TRY NEXT WORD OF CONFIG IF NOT 

;IS IT INTERLEAVED? 

:BRANCH IF SO 

;SET ERROR INDICATOR 

;UPDATE CONFIG COUNTER 

;CONFIG TABLE ALL DONE? 

;BRANCH IF NOT 

s;ERRORS FOUND? 

; TRY NEXT CSR IF NOT 

;CALL ERROR ROUTINE 

;REINITIALIZE CONFIG COUNTER 

;CLEAR ERROR INDICATOR 

;UPDATE CSR COUNTER 

;ALL CSR'S DONE? 

;BRANCH IF NOT 

;RESTORE REGISTERS 

MOV (SP)+,RO 
MOV (SP)+,R5 

;RESET ERROR INDICATOR 
;INDEX T9 TOP OF CONFIG TABLE 
;MEMORY PRESENT? 
;BRANCH IF SO R-C 
;TRY NEXT LOWER ENTRY IN CONFIG TABLE 


3;R-C 


3;R-C 
;sDIVIDE INDEX BY 4 TO GET BANK #;R-C 
;STORE IN LASTBANK 3R-C 


;SAVE SPACE FOR ERROR INDICATOR 
;SAVE SPACE FOR ODD BOUNDARY INTERLEAVED iNDICATOR 
;CLEAR CONFIG COUNTER 


_. eee oe ee ee oe 


CVMJAAO MSV11-J MEMORY DIAG. 


LEGAL CONFIGURATION CHECK 


} 


6324 012610 
6325 012614 
6326 012622 
6327 012624 
6328 012632 
63 2634 


6350 012746 
6351 012752 
012752 


6352 ora 7ee 
6353 012764 


110237 
104401 


012737 
000207 


012604 
000002 


010000 
012604 
000004 


012604 
012604 
012604 
012604 
012604 
000001 


000012 
000007 
000060 
071210 
071174 


177777 
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002664 
002666 


000010 
000030 
000050 
000070 


012604 


002450 


1$: 


2s: 


3$: 
4$: 


5$: 
ILLCSR: 


1$: 


PHEBE ;CLEAR COUNTER 
#BIT1,CONFIGCRO) ;IS THERE MEMORY PRESENT? 
3$ . ; BRANCH IF NOT 

rae ee :IS IT a 
PHEBE INCREMENT COUNTER 

#4 ,RO ; INCREMENT CONFIG COUNTER 
1$ ; TRY NEXT BANK 

PHEBE , #10 31S THE COUNTER EQUAL TO.. 
4$ ‘ONE OF THE SPECIAL VALUES. 
PHEBE , #30 SIF % Bec 

4 ; BRANCH TO 4$ 

Oo 

rca 

oo ;CLEAR INDICATOR 
#1,PHEBE ;SET INDICATOR 

SUBAAP ;BRANCH TO NEXT SUBTEST 

R1,R2 ;R2 HAS CSR NUMBER 

R2 ;MAKE ACCEPTABLE FOR PRINTING 
#10. ,R2 

i$ 

#7,R2 

#60 ,R2 

R2,MSGA122 ;PUT NUMBER INTO ERROR MESSAGE 
MSG122 

»MSG1i22 

CRF 

CONFGERROR 


MOV 


—_—— ee - 


SEQ 0162 


#-1,CONFGERROR 


AL OL CL LL LL 


mm ee —_—-—— = —— eee 


H135 
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LEGAL CONFIGURATION CHECK SEQ 0163 


| 6356 012766 SUBAAP: SUBTST <<PRINT CONFIGURATION DETAILS>> 
| 5 CESARE EEE EE EEE SEES ERE EEE EEEES EERE EERE EEEEEEEEEEEEEEEEEEEEEEEEEE REE EE REE REE OS 
;*SUBTEST PRINT CONFIGURATICN DETAILS 
KAA AERA AAA EE EERE ERERAEEEREEEA REESE EEREEE REESE EE EEEEEEEEEEEEEEEEREEE EERE REED 
6357 012766 CLEA LSIZE ,MSIZE 
012766 005037 002400 CLR LSIZE 
012772 005037 002402 CLR MSIZE 
6358 012776 013702 002556 MOV LASTBANK,R2 
6359 013002 006302 ASL Re 
6360 013004 006302 ASL R2 
1 013006 FOR R1 := #0 TO R2 BY #4 
005001 CLR Ri 
013010 Bli:sssses 
6362 013010 IF CPUBIT SET.IN CONFIGCR1) 
013010 033761 002106 002664 BIT CPUBIT,CONFIG(R1) 
013016 001411 BEQ L102 
6363 013020 IF #BIT8 SET.IN CONFIG+2(R1) 
013020 032761 000400 002666 BIT #B1T8,CONFIG+2(R1) 
013026 001403 BEQ L103 
6364 013030 LET MSIZE := MSIZE + #1 
013030 005237 002402 INC MSIZE 
6365 013034 ELSE 
013034 000402 BR L104 
013036 L103:ssssss 
6366 013036 LET LSIZE := LSIZE + #1 
013036 005237 002400 INC LSIZE 
6367 013042 END;IF BITS 
013042 L104:3ss533 
6368 013042 END; OF IF CPUBIT 
13042 L1I02:sssee3 
6369 013042 END ;OF FOR ALL BANKS IN TABLE 
013042 062701 000004 ADD #4,R1 
13046 020102 CMP R1,R2 
013050 003757 BLE Bil 
, 013052 Ellzssssess 
6371 013052 005037 002452 CLR I 
6372 013056 FOR R1 := #0 TO #10 BY #2 
013056 005001 CLR R1 
013060 Bl2:sises3 
6373 013060 006361 002374 ASL BSIZECR1) 
6374 013064 006361 002374 ASL BSIZECR1) 
6375 013070 006361 002374 ASL BSIZECR1) 
6376 013074 006361 002374 ASL BSIZECR1) ;BSIZEC(R1) := BSIZECR1) * 16. 
6377 013100 066137 002374 002452 ADD BSIZECR1I),I ;I1 <- I + BSIZECR1) 
6378 013106 END; FOR Ri 
0131 701 000002 ADD #2,R1 
013112 020127 000010 CMP R1,#10 
013116 003760 BLE Bi 
013120 Elo:ssssses 
6379 013120 FOR R1 := #0 TO #200 BY #4 
013120 005001 CLR Ri 
013122 Bli3:sssess 
6380 013122 IF CPUBIT SET.IN CONFIGC(R1) 
013122 033761 002106 002064 BIT CPUBIT,CONFIGC(R1) 
001402 BEQ L105 


--_ 


013130 
6381 013132 


LET UNITOP := UNITOP + #1 
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PRINT CONFIGURATION DETAILS SEQ 0164 
013132 005237 002416 INC UNITOP | 
6382 013136 END; OF IF CPUBIT 
013136 L1IOS:sisses 
6383 013136 END; OF FOR R1 
013136 062701 000004 ADD #4,R1 
013142 020127 000200 CMP R!, 4200 
013146 003765 BLE 813 
013150 ElS:sssssas 
006337 002416 ASL UNITOP 
6385 013154 006337 002416 ASL UNITOP 
6386 013160 006337 002416 ASL UNITOP 
6387 013164 006337 002416 ASL UNITOP ;UNITOP := UNITOP * 16. 
6388 013170 IF I LT UNITOP THEN LET I := UNITOP 
013170 023737 002452 002416 CMP I,UNITOP 
013176 002003 BGE L106 
013200 013737 002416 002452 MOV UNITOP,I 
013206 L106:sisie3 
6389 013206 TYPE $CRLF 
013206 104401 002660 TYPEIT ,$CRLF 
.DSABL CRF 
6390 013212 005737 002400 2$: TST LSIZE 
6391 013216 001414 BEQ 
6392 013220 022737 004000 092400 CMP #2048. ,LSIZE 
6393 013226 001003 BNE 12$ 
6394 013230 162737 000004 002400 SUB #4,LSIZE ; SUBTRACT 4K FOR THE I/0 PAGE 
6395 013236 12$: TYPDEC LSIZE 
013236 013746 002400 MOV LSIZE,-(SP) ;;SAVE LSIZE FOR TYPEOUT 
013242 104405 TYPDS ;;GO TYPE--DECIMAL ASCII WITH SIGN 
.DSABL CRF 
6396 013244 TYPE MSGi12 
013244 104401 071025 TYPEIT ,MSGii2 
-DSABL CRF 
6397 013250 005737 002402 3$: TST MSIZE 
6398 013254 001414 BEQ 5$ 
6399 013256 022737 004000 002402 <MP #2048. ,MSIZE 
6400 013264 001003 BNE 13$ 


 —— _—<ncee n.  Att:tN, Ltt. A ee LE EE EE LLL LLL A A | 


——— ee 


CVMJAAO MSV11-J MEMORY DIAG. 
' PRINT CONFIGURATION DETAILS 


6401 013266 
6402 013274 
013274 


6403 013302 
013302 


6404 013306 
6405 013314 
6406 013316 
6407 013324 
013324 
013330 
6408 013332 
013332 
6409 013336 
013336 
013344 
6410 013346 
6411 013352 
013352 


162737 
013746 
104405 


104401 
022737 
001003 
162737 
013746 
104405 
104401 


032777 


001002 
004737 


000004 
002402 


071057 
004000 
000004 
002452 


070127 


000100 
032722 


002402 


002452 5%: 


002452 


167272 


CALL PCONFIG 
END; OF IF #SW6 


#4 ,MSIZE 
MSIZE 


J135 
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MSIZE, -(SP) 


CRF 


; SUBTRACT 4K FOR THE I/0 PAGE 


aS MSIZE FOR TYPEOUT 
;GO0 TYPE--DECIMAL ASCII WITH SIGN 


; SUBTRACT 4K FOR THE I/0 PAGE 


I,-C€SP) ;;SAVE I FOR TYPEOUT 


CRF 
MSGO70 


»MSGO70 
CRF 


OFF .IN @SWR 


;;GO TYPE--DECIMAL ASCII WITH SIGN 


BIT #SW6,aSWR 
BNE L107 


SEQ 0165 © 


- —_——$§ rr A a i: 
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PRINT CONFIGURATION DETAILS SEQ 0166 


6414 013352 SUBTST <<CHECK APT SIZING>> 
5 EERE EEEEERAEEEEEREAEEEREEEEEREAEERAEEE EERE EEEEEEEEEEEESEEEEEE EE ER EERE OER EEO 
; *SUBTEST CHECK APT SIZING 
5 REE EEE EERE EE EEAEE ERE EEEEEE EEE EEEEEEEE EEE ERE EEE EEE EEEEEEEEEEEE DEORE REE ER OEE ES 
6415 013352 IF APTFLAG IS TRUE AND APTSIZE IS TRUE 
013352 005737 002352 TST APTFLAG 
013356 001475 BEQ@ L110 
013360 737 002444 TST APTSIZE 
013364 001472 BEQ L110 
6416 013366 005037 002434 CLR TEMP 
6417 013372 012700 056676 MOV #$MAMS1,RO 
6418 013376 FOR R2 := #0 TO #4 
013376 005002 CLR R2 
013400 Bl4:ssiss: 
6419 013400 IFB 1(RO) NE #0 
013400 105760 000001 TSTB 1(€RO) 
013404 001441 BE@ Lili 
6420 013406 111001 MOVB (RO),R1 
6421 013410 042701 177400 BIC #177400,R1 
6422 013414 IF 2C(RO) LT #0 
013414 005760 000002 TST 2C(RO) 
013420 002002 BGE L112 
6423 013422 000261 SEC 
6424 013424 ELSE 
013424 000401 BR L113 
013426 Lil2:sssis: 
25 013426 000241 CLC 
6426 013430 END ;OF IF 2(RO) 
013430 LIU3:ssssee 
6427 013430 00610 ROL Ri 
6428 013432 005201 INC Ri ;T0 COMPENSATE FOR 4 BANKS BEING (0-3) 
6429 013434 006301 ASL Ri 
6430 013436 006301 ASL R1 
6431 013440 006301 ASL RL 
6432 013442 006301 ASL 1 
6433 013444 163701 002434 SUB TEMP ,R1 
013450 010137 002434 MOV Ri, TEMP 
6435 013454 IFB 1(RO) EQ #3 
013454 126027 000001 000003 CMPB 1(RO),#3 
013462 001002 BNE L114 
6436 013464 060137 002422 ADD R1,APTPAR 
6437 013470 END ;OF IFB iCRO) 
013470 L114:ssssss 
6438 013470 IFB 1CRO) EQ #4 
013470 126027 000001 000004 CMPB 1(RO),#4 
013476 001002 BNE 1115 
6439 013500 060137 002424 ADD R1,APTECC 
6440 013504 END ;OF IFB 1(RO) 
013504 L1lIS:ssses: 
6441 013504 062700 000004 ADD #4 ,RO 
6442 013510 END ;OF IFB 1(RO) 
013510 Lillsssssss 
6443 013510 END ;OF FOR R2 
013510 005202 INC R2 
013512 020227 000004 CMP R2, #4 
Oi vase 003730 _ BLE B14 


se ——— = 
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CHECK APT SIZING SEQ 0167 
| 444 013520 IF APTPAR NE LSIZE OR APTECC NE MSIZE OR APTECC NE PSIZE | 
013520 023737 002422 002400 CMP APTPAR,LSIZE 
013526 001010 aoe BNE L116 | 
013530 023737 002424 002402 CMP APTECC ,MSIZE | 
013536 001004 BNE 
013540 023737 002424 002404 CMP APTECC,PSIZE 
013546 001401 BE@ L117 | 
013550 Li16:sssea3 | 
6445 013550 104046 ERROR +46 
6446 013552 END ;OF IF APTPAR 
1355 LILW7sssssce 
6447 013552 END ;OF IF APTFLAG 
013552 L1i10:sssssz 


— — ate dma “le eae a ae om me 
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CHECK APT SIZING on 


| 


6449 013552 


LOOP: NEWTST <<DIAGNOSTIC MODE DISPATCH ROUTINE>> 


§ FSS SESSESSSESSSESSSASERSSSSSESSS SESS SESS SSS SSSSESES SSS SESS SESS SHREK ESSE ESE RE RE REOS 


;*#TEST 5 DIAGNOSTIC MODE DISPATCH ROUTINE 
5 EKEEEEEEEEEEEEEEEEEEEEEEEEEAEEEESERESEEREEREREEESEEEEEEEEEEERERE REESE EEE R OEE EEE 
013552 TSTS: SCOPE 
6450 013554 005037 002222 CLR CONTFLAG 
6451 013560 017700 167 MOV ASWR ,RO ;GET SWITCHES 
013 042700 177761 BIC #tC16,R0 sMASK TO ONLY MODE BITS 
6453 013570 004770 O1 CALL @DISPTBLC(RO) DISPATCH TO ROUTINE THROUGH NEXT TABLE 
6454 013574 000137 013620 JMP MEMDONE :GO TO NEXT TEST 
6455 01 014262 DISPTBL:BAFPAF ;MODE 0O;BANKS FORWARD, PATTERNS FORWARD 
6456 013602 014370 BAFPAR ;MODE 1;BANKS FORWARD, PATTERNS REVERSE 
6457 013604 014476 BAWPAF ;MODE 2;BANKS WORST FIRST, PATTERNS FORWARD 
6458 01 014626 BAWPAR ; 3;BA NKS WORST FIRST, PATTERNS REVERSE 
6459 013610 014756 PAFBAF ;MODE 4;PATTERNS FORWARD, BANKS FORWARD 
6460 013612 015106 PAFBAW ;MODE 5;PATTERNS FORWARD, BANKS WORST FIRST 
6461 013614 015260 PARBAF ;MODE 6;PATTERNS REVERSE, BANKS FORWARD 
oat 013616 015410 PARBAW ;MODE 7;PATTERNS REVERSE, BANKS WORST FIRST 
6464 013620 004737 014162 MEMDONE : CALL DOBACK ;CHECK BACKGROUND PATTERN 
6466 013624 NEWTST<<UNIQUE BANK TEST>> 
PITTI ITITLiti titi ititt tee titi titilitiiiiilttiililitttttltttt 
;#TEST 6 QUE BANK TEST 
TITTTITILITitiliti titi Lilith 
013624 000004 TST6: SCOPE 
;MAKE SURE THAT EACH BANK CAN HAVE UNIQUE DATA 
6468 ;WRITE AND READ THE BANK NUMBER IN EACH BANK CEXCEPT WHERE THE PROGRAM IS) 
6469 013626 IF SELONLY IS FALSE 
013626 005737 002002 TST SELONLY 
013632 001015 BNE L120 
6470 013634 SET HEADER,MUT 
013634 012737 177777 002612 MOV #-1,HEADER 
013642 012737 177777 002110 MOV #-1,MUT 
6471 013650 004737 021610 CALL MT0027 
6472 013654 SET HEADER 
013654 012737 177777 002612 MOV #-1,HEADER 
6473 013662 005037 002110 CLR MUTT 
6474 013666 END ;OF IF SELONLY 
013666 L1I2QO: sissies: 
nis 013666 004737 014162 CALL DOBACK ;sRESTORE BACKROUND PATTERN 
6480 013672 FLUSH: SUBTST <<FLUSH OUT DBE'S>> 
WITiTiTiTiittitit titi titi ttt t titi ttiiiiititiiiit ttt ti tititiiiitiit ttt tii. 
;*SUBTEST FLUSH OUT DBE’'S 
TITTITILITI IIT L itt iittititiiiiitttliiliitittillllll 
6481 013672 004737 022200 CALL MT0030 


-_ — or ee ee ee 
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END OF PASS ROUTINE 


90 
1 013676 


6499 736 
6500 013744 
013744 


6501 Stes 


0 6 
6502 013776 
013776 
6503 014002 
6504 Oe eoee 
6505 014006 
014006 
014012 
6506 014014 
6507 014020 
6508 014022 
6 4 014026 


651 
6511 014030 
0 0 


651 046 
6518 014050 


032777 
001007 
005737 
001004 
023727 
001004 


104401 
005037 


013746 
104405 


067273 
002346 


056654 


000042 
002000 


040636 


N13 
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002016 
056654 


166660 


000001 





-SBTTL END OF PASS ROUTINE 


; t__— a=, ¢C~C*;~;=S;2;2S] ]SP:;=i=itistetet seeeeeseceees 


PASS NUMBER ($P 


;*INCREMENT THE ASS) 
; #INDICATE END-OF -PROGRAM AFTER EACH PASSES THRU THE PROGRAM 
*TYPE "END PASS @XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
‘eIF THERES A MONITOR GO TO IT 
; #1F hae ISN’ T JUMP TO LOOP 


$EOP: 
1$: 


$ZAP42: 


$ENDAD: 


$D0AGN: 


MOV #CONFIG+2,RO0 ;MOVE 2ND WORD OF CONFIG TO RO 
BIC or t35. (RO) ;CLEAR BACKGROUND VALID BIT 
ADD RO ; INCREMENT TO NEXT BANK 

CMP RO’ 93620 ; DONE? 

BLE i$ ;NO - BRANCH 

MOV $ERTTL,LASTERROR 

INC $PASS ;; INCREMENT THE PASS NUMBER 
BIC #100000, $PASS :EDON’ T ALLOW A NEG. NUMBER 
TYPE MSGO77 ;;TYPE “END PASS #” 

TYPEIT ,MSGO77 


-DSABL CRF 
IF #SW1i1 SET.IN @SWR OR QVFLAG IS TRUE OR $PASS EQ #1 
Br sey i 


L 
TST QVFLAG 
BNE Li2i 
CMP $PASS,#@1 
BNE Li22 
Li2l:ssssss 
TYPE MSGO35 ;QV 
TYPEIT ,MSGO35 
.DSABL CRF 
CLR QVFLAG 
END ;OF IF SWil 
Lig2:sissss 
TYPDEC $PASS 
MOV $PASS,-(SP) ;;SAVE $PASS FOR TYPEOUT 
TYPDS ;;GO TYPE--DECIMAL ASCII WITH SIGN 
.DSABL CRF 
MOV 42,R0 ;;GET MONITOR ADDRESS 
BEQ $DOAGAIN ; BRANCH IF NO MONITOR 
CMP #STACK ,RO ves WE UNDER RT11 


BEQ $DOAGAIN YES - BRANCH 


;WE ARE UNDER CHEAVEN HELP US) XXDP! 
PUSH RO 
CALL SHUTUP 
POP RO 
MOV (SP)+,RO 
RESET ;;CLEAR THE WORLD 
CALL CRO) ;;GO TO MONITOR 
NOP ;;SAVE ROOM 
NOP ;;FOR 
NOP ;;ACT1i1 
;UNDO SHUTUP STUFF 
3 RESTORE STACK 
: ENERGIZE Q@-BUS MAP &€ 22 BIT ADDRESSING 
; ENERGIZE MEMORY MANAGEMENT 
; PUT LOADERS BACK HOME 


SEQ 0169 


’ 





ee — el Ae ca 


013706 


000137 


Soe ante” 


056654 


013552 
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172516 


056654 


056656 


14 


Pege 169-1 


3IS THIS AN 11/863,11723-8 OR 11/23? 


; TURN ON MEMORY MANAGEMENT 
s;DESTINATION BANK 
;SOURCE BANK 
TST APTFLAG 
BEQ L123 


CMP S$USWR, $PASS 
BNE L124 


LI2Q4:isscas 


MOV KSTACK ,SP 
TST NO22BIT 
BNE is 
BIS SBITS!B1T4,.MMRS 
MOV LOADHOME ,. RO 
MOV #1,.R1 
CALL BANKMOV 
IF APTFLAG IS TRUE 
IF $uSWR EQ $PASS 
APTHANG : MOV #50,R1 
23: SOB RO,2$ 
ADD #1,$DEVCT 
ADC $UNIT 
SOB R1i.2$ 
INC $PASS 
BR APTHANG 
END ;OF IF $USWR 
END ;OF IF APTFLAG 
$DOAGAIN: JMP LOOP 


Li2dS:ssssss 
;RETURN 


—_——- _— _—- eee eae ~- - - _ -- 
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EX) OF PASS ROUTINE 
6546 014162 


SEQ 0171 
DOBACK: SUBTST <<WRITE BACKGROUND PATTERNS>> 


FFF SSSSSSSSSSSSSESSSSSSSSSSSSSSESSESSSSSSSSSSSSSESSESSSESSHKESSHEKEKERES ERE KEES REE EEE OS 
; *SUBTEST WRITE PATTERNS 
FS SSSSSSSSSSSSSSSSSSSSSSSSSSSESSSS SSS SSESSESESSECSESEKSESSERSESSSSSSSEKSSSESES KEKE REE EE EE 


6547 014162 005037 002112 
FOR BANK := #0 TO LASTBANK 


_ — ee ee ee 


| 6548 014166 
014166 


005037 002102 CLR BANK 
014172 BlS:ssscas 
6549 014172 004737 040052 CALL EXBANK 
6550 014176 IF ACFLAG IS TRUE AND RRFLAG IS FALSE 
014176 005737 002116 TST ACFLAG 
014202 001420 BEQ L125 
014204 005737 002124 TST RRFLAG 
014210 0061015 BNE L125 
6551 014212 SET HEADER , MUT 
014212 012737 177777 002612 MOV #-1,HEADER 
014220 012737 177777 002110 MOV #-1,MUT 
6552 014226 004737 017104 CALL MKTEST ;CALL MJTEST WOULD ALSO WORK 
6553 014232 005037 002110 CLR MUT 
6554 014236 SET HEADER 
014236 012737 177777 002612 MOV #-1,HEADER 
6555 014244 END ;OF IF ACFLAG 
244 Li2d:ssssss 
6556 014244 END ;OF FOR BANK 
014244 005237 002102 INC BANK 
014250 023737 002102 002556 CMP BANK,LASTBANK 
014256 374 BLE B15 
014260 Cls:sssssss 
6557 014260 000207 RETURN 


ee ee ee 


D1i4 
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MTEST MODES SEQ 0172 


one? .SBTTL MTEST MODES 
6562 014262 BAFPAF: SUBTST <<BANKS FORWARD,PATTERNS FORWARD **#RECURSIVE+«>> 
Pitt titi titi titttii tt iti tit iti titi ttt ti ttt ttt ttt titi titi LTT Lititititiiit 
;*SUBTEST BANKS FORWARD,PATTERNS FORWARD **#RECURSIVE +« 
eek nes gee. ky cnccrecemeneaeenes 
6563 014262 005037 002102 CLR BANK ;SET BANK TO 0 
6564 ;START OF BANK LOOP 
6565 014266 004737 040052 1$: CALL EXBANK ;EXAMINE BANK 
6566 014272 005737 002116 TST ACFLAG : CAN WE ACCESS THIS BANK? 
6567 014276 001412 BEQ 4$ ;NO - GO TO BANK LOOP TERMINATION 
6568 014300 005737 002124 TST RRFLAG ;RELOCATION REQUIRED 
6569 014304 001007 os BNE at -YES - GO TO BANK LOOP TERMINATION 
6570 014306 005037 002112 . CLR ATTERN ;SET PATTERN TO 0 
6571 ;START oF PATTERN LOOP 
6572 014312 004737 015562 2$: CALL MTEST ;GO TEST CORRECT MEMORY 
6573 ; TERMINATION OF PATTERN LOOP 
6574 014316 004737 040474 CALL INCPAT ;GO SEE IF THIS IS THE LAST PATTERN 
6575 014322 001373 BNE 2$ ;NO - LOOP ON THIS PATTERN 
6576 ; TERMINATION OF BANK LOOP 
6577 014324 005037 002222 4$: CLR CONTFLAG 
6578 014330 004737 040520 CALL INCBNK ;NEXT HIGHER BANK 
6579 014334 002354 BGE i$ ;I1F NOT DONE - LOOP ON THIS BANK 
6580 ;END OF LOOPS 
6581 014336 005737 002126 TST RLFLAG sHAVE WE BEEN RELOCATED? 
6582 014342 001401 BEQ 5$ SKIP 
6583 014344 000207 RETURN ‘YES - RETURN 
6584 014346 004737 036402 5$: CALL RELOCATE MOVE & MAP PROGRAM 
6585 014352 ON.ERROR THEN $RETURN 
014352 103001 ve L126 
014354 000207 RTS PC 
014356 L126:ssises 
6586 ;**#NOTE**s RECURSIVE CALL 
6587 014356 004737 014262 CALL BAFPAF ;CALL SELF 
6588 014362 004737 037214 CALL UNRELOCATE ;UNMOVE €& UNMAP PROGRAM 


6589 014366 000207 RETURN 


Se 


——— 


6592 014370 


6593 014370 
6594 

6595 014374 
6596 014400 
6597 014404 
6598 014406 
6599 014412 
6600 014414 
6601 

6602 014420 
6603 

6604 014424 
6605 014430 
6606 

6607 014432 
6608 014436 
6609 014442 
6610 

6611 014444 
6612 50 


6616 

6617 014464 
6618 014470 
6619 014474 
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BANKS FORWARD,PATTERNS FORW 


004737 
004737 
000207 


: —— or on ome 


ARD 


002102 
02116 
002124 
040510 


015562 
002112 


002222 
040520 


002126 


036402 


014370 
037214 


——_— -—_ Se 
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E 
ON.ERROR THEN $RETURN 


Li27sssssss 
; *#NOTEe* —— CALL 


CALL BAF ;CALL a F 
ee UNRELOCATE ‘ONMOVE. & » UNMAP PROGRAM 


*#RECURSIVE ss 
BAFPAR: SUBTST <<BANKS FORWARD,PATTERNS REVERSE *#RECURSIVEs#>> 
SFE SE SEES SSE SSS SESE SSE EES SEEKERS SSEKRSESSESSES SESE SETAE EEE REED ES 
;*SUBTEST BANKS FORWARD,PATTERNS REVERSE **RECURSIVEs« 
FESS SESE ESSE SESE SSS ESSESE SESE SSRSAEERESSESRSESAESSES EKER SERECE EOE 
CLR :SET BANK TO 0 
;START OF BANK LOOP 
1$: CALL EXBANK ;EXAMINE BANK 
TST ACFLAG ;CAN WE ACCESS THIS BANK? 
BEQ 4$ ;NO - GO TO BANK LOOP TERMINATION 
TST RRFLAG ; RELOCATION yg 
BNE $ YES - GO TO BANK LOOP TERMINATION 
CALL SETPAT SET HIGH PATTERN FOR CORRECT MEMORY 
;START OF PATTERN LOOP 
2$: CALL MTEST ;GO TEST CORRECT MEMORY 
ee? 4 PATTERN LOOP 
DEC PATTERN ;I1S THIS THE LAST PATTERN? 
BPL 2$ : NO - LOOP ON THIS PATTERN 
TERMINATION. OF BANK Loop 
4$: cL RR CONTFLAG 
CALL TNCBNK ;NEXT HIGHER BANK 
BGE i$ - IF NOT DONE - LOOP ON THIS BANK 
;END OF LOOPS 
te RLFLAG sHAVE Th ae RELOCATED? 
RETURN ‘YES - RETURN 
5$: CALL RELOCAT ; MOVE & MAP PROGRAM 


SEQ 0173 


<< -_- 


ER 


——— me ee ee 
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*#RECURSIVE ss 


BAWPAF: SUBTST 
EERE REEEAREE EE EEREREEEE ERE EERE REESE SEER EEE EE EEEE SEER RESO EERE RETESET EERE EEE ES 
; *SUBTEST BANKS WORST FIRST,PATTERNS FORWARD *#*RECURSIVE+ss 


CVMJAAO MSV11-J MEMORY DIAG. 
‘BANKS FORWARD,PATTERNS REVERSE 


6622 014476 


SEQ 0174 


<<BANKS WORST FIRST,PATTERNS FORWARD *#RECURSIVE+*>> 


—_— a oe 


5 EEKEEESESEERSEEAEAARESESSESSRESESERERE EERE SERERERERE EERE EEESEEESE SEEKER ECE TERES 


6623 014476 005037 002102 CLR B ;SET BANK TO 0 
24 ;START OF BANK LOOP 
6625 014502 004737 040052 1$: CALL EXBANK ;EXAMINE BANK 
014 005737 002116 TST ACFLAG ;CAN WE ACCESS THIS BANK? 
6627 014512 001415 BEQ 4$ ;NO - GO TO BANK LOOP TERMINATION 
6628 014514 005737 002130 TST BMFLAG :IS THIS BAD MEMORY (WORST FIRST)? 
014 001412 BEQ 4$ GO TO BANK LOOP TERMINATION 
6630 014522 005737 002124 TST RRFLAG ‘RELOCATION REQUIRED? 
6631 014526 001007 BNE 4$ ;YES - GO TO BANK LOOP TERMINATION 
014530 005037 002112 CLR PATTERN ‘SET PATTERN TO O 
;START 3 PATTERN LOOP 
6634 014534 004737 015562 2$: CALL MTEST ;GO TEST CORRECT MEMORY 
; TERMINATION OF PATTERN LOOP 
6636 014540 004737 040474 CALL INCPAT ;GO SEE IF THIS IS THE LAST PATTERN 
6637 014544 001373 BNE 2$ ;NO - LOOP ON THIS PATTERN 
6638 ty aie! 5 OF BANK LOOP 
6639 014546 005037 002222 4$: CLR CONTFLAG 
6640 014552 004737 040520 CALL ;NEXT HIGHER BANK 
6641 014556 002351 BGE i$ sIF NOT DONE - LOOP ON THIS BANK 
6642 ;END OF LOOPS 
6643 014560 005137 002600 COM WORST ;I1S THIS AN EVEN NUMBERED PASS? 
6644 014564 001003 BNE 5$ ; - SKIP 
6645 ; **NOTE xs oe CALL 
6646 014566 737 014476 CALL BAWP ;CALL SELF 
6647 014572 000207 RET 
6648 014574 005737 002126 5$: TST RLFLAG ;sHAVE WE BEEN RELOCATED? 
6649 014600 001401 BEQ 6$ ;NO - SKIP 
6650 014602 000207 RETURN YES - RETURN 
6651 014604 004737 036402 6$: CALL RELOCAT ;MOVE & MAP PROGRAM 
6652 014610 ON.ERROR THEN $RETURN 
014610 103001 BCC L130 
014612 207 RTS PC 
014614 L130:sssssz 
6653 ;*#*NOTEs* ee CALL 
6654 014614 004737 014476 CALL BAWP ;CALL SELF 
6655 014620 004737 037214 CALL UNRELOCATE ;UNMOVE €& UNMAP PROGRAM 
6656 014624 000207 RETURN 


ama <——— ee ee 


—— Ma —— ———— i ee —_—=— —-* ———- 
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BANKS WORST FIRST,PATTERNS FORWARD +**#RECURSI 
| 6659 014626 BAWPAR: SUBTST <<BANKS WORST FIRST,PATTERNS REVERSE *#*RECURSIVE*ss«>> 
| Pitti tit itt titi ti titt ttt ttt ttt ttt tt titi t tit tt ttt tt ttt TTI Ti TT TT TTT TTT TiTiTiTiitT 
;*SUBTEST BANKS WORST FIRST,PATTERNS REVERSE »**RECURSIVEss 
| Pitti t tit tittit titi titi ttt t ttt t ttt ttt ti titi tt ttt ttt ttt TT Tit Titi Titi titi titiii 
6660 014626 005037 002102 CLR BANK ;SET BANK TO 0 
6661 ;START OF BANK LOOP 
6662 014632 004737 040052 1$: CALL EXBANK ;EXAMINE BANK 
6663 014636 005737 002116 TST ACFLAG ; CAN WE ACCESS THIS BANK? 
O01 001415 BEQ 4$ ;NO - GO TO BANK LOOP TERMINATION 
6665 014644 005737 002130 TST BMFLAG ;I1S THIS BAD Sep (WORST aie. 
6666 014650 001412 BEQ 4$ ;NO - GO TO BANK LOOP TERMINATION 
6667 014652 005737 002124 TST RRFLAG ; RELOCATION wo" ED? 
6668 014656 001007 BNE 4$ ;YES - GO TO BANK LOOP TERMINATION 
6669 014660 004737 040510 CALL SETPAT ‘SET HIGH PATTERN FOR CORRECT MEMORY 
;START 4 PATTERN LOOP 
6671 014664 004737 015562 2$: CALL MTEST ;GO TEST CORRECT MEMORY 
6672 ; TERMINATION a PATTERN LO 
6673 014670 005337 002112 DEC PATTERN ;1S THIS THE LAST PATTERN? 
6674 014674 100373 BPL 2$ :NO - LOOP ON THIS PATTERN 
6675 ; TERMINATION OF BANK LOOP 
6676 014676 005037 002222 4$: CLR CONTFLAG 
6677 014702 004737 040520 CALL TNCBNK ;NEXT HIGHER BANK 
6678 014706 002351 BGE i$ : IF NOT DONE - LOOP ON THIS BANK 
6679 ;END OF LOOPS 
6680 014719 005137 002600 C WORST :IS THIS AN EVEN NUMBERED PASS? 
6681 014714 001003 BNE 5$ S - SKIP 
6682 ; **NOTE*s — CALL’ 
6683 014716 004737 014626 CALL BAWP ;CALL SELF 
6684 014722 000207 ET 
6685 014724 005737 002126 5$: TST RLFLAG ;HAVE WE BEEN RELOCATED? 
6686 014730 001401 BEQ 6$ ;NC - SKIP 
6687 014732 00020 RETURN ;YES - RETURN 
6688 014734 004737 036402 6$: CALL RELOCATE ;sMOVE €& MAP PROGRAM 
6689 014740 ON.ERROR THEN $RETURN 
014740 103001 te Li3i 
014742 000207 RTS PC 
014744 LiISl:sssss: 
6690 ;**NOTE#*« RECURSIVE CALL 
6691 014744 004737 014626 CALL BAWPAR ;CALL SELF 
6692 014750 004737 037214 CALL UNRELOCATE ; UNMOVE —& UNMAP PROGRAM 
6693 014754 000207 RETURN 


ee SS 


SEQ 0175 


6696 014756 


6697 014756 
6699 014762 
6700 

6701 014766 
6702 014772 
6703 014776 
6704 015000 
6705 015004 
6706 015006 
6707 015012 
6708 015014 
6709 

6710 015020 
6713 

6714 015032 
6715 015036 
6716 

6717 015040 
6719 015044 
6720 

6721 015046 


6728 

6729 015074 
6730 015100 
6731 015104 


2 ———— a 
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BANKS WORST FIRST,PATTERNS REVERSE 


005037 
004 

002356 
004737 
001351 
005137 
001403 


004737 


103001 
000207 


000207 


002112 
002102 
040856 
002116 
002124 
015562 
080520 
040474 


002134 


014756 
002126 


036402 


014756 
037214 


—— ——— 
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*#RECURSIVEss 
PAFBAF: SUBTST 


<<PATTERNS FORWARD,BANKS FORWARD *#RECURSIVE++#>> 


¢ EEE SESE SESE EERE SESE ESSER SESSESES ERE SSSR SESE SEES SESSA SEKESSKESEEEEE REESE EE EES 


; *SUBTEST 


PATTERNS FORWARD,BANKS FORWARD *#RECURSIVE +s 


fEREEKEEEAEEEESEESEEEEEAEASEEEESE RECESS SEES ESE ESE EEA ESERERESEE SESE EEE EEEE TEESE 


1$: 
2s: 


4$: 


5$: 


6$: 


CLR PATTERN ;SET PATTERN TO 0 
;START OF PATTERN LOOP 
;SET BANK TO 0 


CLR 
;START OF BANK LOOP 
EXBANK 


CALL ;EXAMINE BANK 

CALL BANKOK ;CORRECT MEMORY FOR THIS BANK? 

BNE a$ ;NO - GO TO BANK LOOP —e 
TST ACFLAG ;CAN WE ACCESS Rey BANK ? 

BEQ 4$ ;NO - GO TO BANK wa TERMINATION 
TST RRFLAG ;RELOCATION REQUIR 

BNE Gs ;YES - GO TO BANK LOOP TERMINATION 

CALL MTEST ;GO TEST CORRECT MEMORY 
“TERMINATION OF BANK LOOP 

CLR CONTFLAG 

CALL INCBNK ;NEXT HIGHER BANK 


:TF_ NOT DONE - LOOP ON THIS BANK 


;NEXT HIGHER PATTERN 
;0K - LOOP; ELSE CONTINUE 


;COMPLEMENT TYPE OF MEMORY 
:IS bee EVEN NUMBER PASS? 


fe 


BGE 2$ 

; TERMINATION OF PATTERN 
CALL INCRPT 

;END OF LOOPS 

COM TMFLAG 


BEQ 5$ 
er ue CALL’ 


CALL ;CALL SELF 

RETURN 

TST RLFLAG ;HAVE WE BEEN RELOCATED? 
BEQ 6$ ;NO - SKIP 

RETURN ;YES - RETURN 

CALL ;MOVE & MAP PROGRAM 


RELOCATE 
ON.ERROR THEN $RETURN 
ore a 


;**#NOTEs* a CALL 
PAFBAF 
UNRELOCATE 


;CALL SELF 
;UNMOVE & UNMAP PROGRAM 


ee ee ae ee 


SEQ 0176 


. 
——— ———— oa 


cece i LL LLL LLL MBLBLLLL LAL LALLA OA, 


| 
| 


6734 015106 


te 015106 
6737 015112 
6738 

6739 015116 


6 5136 
6745 015142 
6746 015144 
6747 015150 
6748 015152 
6749 

6750 015156 
6751 015162 
6752 015166 
6753 


6754 015170 
6785 015174 


6756 
6757 015176 
otz> 015202 


6764 015216 
6765 
6766 015220 


6772 015242 
015242 
015244 
015246 

6773 

6774 015246 

6775 015252 

6776 015256 


me ll a: a; “ir A ee 


005137 
001403 
004737 
000207 
005137 
001003 


004737 


CVMJAAO MSV11-J MEMORY DIAG. 
PATTERNS FORWARD,BANKS FORWARD 


002112 
002102 
see 
002116 
002130 
002124 
015562 
688 
040474 


002134 
015106 
002600 


015106 
002126 


036402 


015106 
037214 


114 


MACRO VOS.0lb Friday 15-Feb-85 16:10 Page 183 
*#RECURSIVE ++ 


PAFBAW: SUBTST 


; *SUBTEST 


1$: 
2$: 


4$: 


S$: 


6$: 


7$: 


CLR 


CALL 
BNE 


CAL MTEST 
“TERMINATION OF BANK LOOP 
CLR CONTFLAG 


CALL 


ALL 


<<PATTERNS FORWARD,BANKS WORST FIRST 
| EREEEEEEEREEEEREREREEEEERESESE REE EE ER EEE E EERE EEE E EE ESEEEE SERED ERED EERE EEE E ES 
PATTERNS FORWARD,BANKS WORST FIRST 


—— — n—— .° <> ¥ Wamemmmpepeeeeeete 
N 

;START OF PATTERN L.v0P 
CLR B 

;START OF BANK LOOP 
CALL 


EXBANK 
BANKOK 


4$ 
ACFLAG 
4$ 
BMFLAG 
as 
RRFLAG 
as 


BGE 2$ 
; TERMINATION OF PATTERN LOOP 
C INCRPT 


BNE 1$ 
;END OF LOOPS 


CALL 
RET 


BNE 6$ 
; **#NOTE ** — CALL 
CALL PAFBAW 


T 
TST 
BEQ 


RETURN 
CALL RE TE 
ON.ERROR THEN $RETURN 


TMFLAG 


BEQ 5$ 
’ggaeae * — CALL 


WORST 


RLFLAG 
7$ 


LOCA 


; **#NOTE** —— CALL 
UNRELOCATE 


*#RECURSIVE «>> 
**#RECURSIVE+« 
;SET PATTERN TO O 
;SET BANK TO 0 


;EXAMINE BANK 

; CORRECT oi dior FOR THIS BANK? 

;NO - GO TO BANK LOOP TERMINATOR 
;CAN WE ACCESS THIS BANK? 
;NO - GO TO BANK LOOP TERMINATION 
;IS THIS BAD MEMORY CWORST FIRST) 
;NO - GO TO BANK LOOP TERMINATION 
;RELOCATION REQUIRED? 
sYES - GO TO BANK LOOP TERMINATION 
;GO0 TEST CORRECT MEMORY 


;NEXT HIGHER BANK 
;IF NOT DONE - LOOP ON THIS BANK 


;NEXT HIGHER PATTERN 
;0K - LOOP; ELSE CONTINUE 


;COMPLEMENT TYPE OF MEMORY 
:IS THIS pos EVEN NUMBER PASS? 


;CALL SELF 


;4TH PASS? 
;YES - SKIP 


;CALL SELF 
sHAVE — RELOCATED? 


;YES | - RETURN 
;MOVE & MAP PROGRAM 


ee L133 
RTS PC 


;CALL SELF 
;UNMOVE & UNMAP PROGRAM 


SEQ 0177 


eee eee ee 


— —-—-—— —— 


—— wa AM em |e —_—_—— —_-- —— ee - 
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CVMJAAO MSV11-J MEMORY DIAG. 
*s+RECURSIVEss 


PATTERNS FORWARD,BANKS WORST FIRST SEQ 0178 : 


| - 6779 :015260 PARBAF: SUBTST <<PATTERNS REVERSE,BANKS FORWARD **RECURSIVE ++ >> 
| SESS SESSSESSESSSSSSSSESSSSSSSSS SSS SS SS SSSSSESS SSS SSSR SSE SESSESRSESSESESSES SEES EEE EEES 
; *SUBTEST PATTERNS REVERSE ,BANKS FORWARD **#RECURSIVEss 
SFE SSSSSESSSSSSSSSSSASSSSSSSSSSSESSSSSSSSESKSS SESS SSSSESS SSS SESSSSSSSES EKER KEE EE REESE 
| 6780 015260 004737 040510 CALL HIPAT ;SET HIGHTEST PATTERNS 
6781 ;START OF PATTERN LOOP 
6782 015264 005037 002102 1$: CLR BANK ;SET BANK TO 0 
6783 ;START OF BANK LOOP 
6784 015270 004737 040052 2$: CALL EXBANK ;EXAMINE BANK 
6785 015274 004737 040456 CALL BANKOK ; CORRECT ty FOR THIS BANK? 
6786 015300 001010 BNE 4$ ;NO - GO TO BANK LOOP TERMINATOR 
6787 015302 005737 002116 TST ACFLAG ;CAN WE ACCESS THIS BANK? 
6788 015306 001405 BEQ 4$ :NO - GO TO BANK LOOP TERMINATION 
6789 015310 005737 002124 TST RRFLAG ; RELOCATION REQUIRED? 
6790 015314 001002 4$ YES - GO TO BANK LOOP TERMINATION 
6791 015316 004737 015562 CAL MTEST ‘GO TEST CORRECT MEMORY 
6792 TERMINATION, OF BANK LOOP 
6793 015322 005037 002222 4$: cL R CONTFLAG 
6794 015326 004737 040520 CALL ;NEXT HIGHER BANK 
6795 015332 002356 BGE 2$ : IF NOT DONE - LOOP ON THIS BANK 
6796 ; TERMINATION OF PATTERN LOOP 
6797 015334 005337 002112 DEC PATTERN ;NEXT LOWER PATTERN 
6798 015340 100351 BPL i$ ;0K - LOOP; ELSE CONTINUE 
6799 ;END OF LOOPS 
6800 015342 005137 002134 COM TMFLAG ;COMPLEMENT TYPE OF MEMORY 
6801 :1S THIS AN EVEN NUMBER PASS? 
6802 015346 001403 BEQ 5$ ;YES - SKIP 
6803 ;**#NOTE** RECURSIVE CALL 
6804 015350 004737 015260 CALL PARBAF ;CALL SELF 
6805 015354 000207 RETURN 
6806 015356 005737 002126 5$: TST RLFLAG sHAVE WE BEEN RELOCATED? 
6807 015362 001401 BEQ 6$ SKIP 
808 015364 000207 RET ‘YES. - RETURN 
6809 015366 737 036402 6$: CALL RELOCATE ; MOVE €& MAP PROGRAM 
6810 015372 ON.ERROR THEN $RETURN 
015372 103001 BCC L134 
015374 000207 RTS PC 
015376 L1I34:issss: 
6811 ;**#NOTE*s RECURSIVE CALL 
6812 015376 004737 015260 CALL PARBAF ;CALL SELF 
6813 015402 004737 037214 CALL UNRELOCATE : UNMOV VE & UNMAP PROGRAM 
6814 015406 000207 RETURN 


oe 


- -——_-- 
oh ——— 2 Senet rr mee 
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PATTERNS REVERSE ,BANKS “ORWARD **#RECURSIVE +s SEQ 0179 
| 6817 015410 PARBAW: SUBTST <<PATTERNS REVERSE,BANKS WORST FIRST *#RECURSIVE+ss>> 
5 EEREEEEEESEERERESEERERESEEEEE SEER EEREEEES EEE EEEEEEEE EERE EEEEEE EEE EERE EERE OES 
; «SUBTEST PATTERNS REVERSE,BANKS WORST FIRST *#RECURSIVEss 
| eee EE EEE SESE EEE EEE EEE EEEESEEEEEEEEEEEEEEEEEEEEEEEEEESEEEEEESEE ES ERR GEER ORE OES 
6818 015410 004737 040510 CALL HIPAT ;SET HIGHTEST PATTERN 
;START OF PATTERN LOOP 
6820 015414 005037 002102 1$: CLR :SET BANK TO 0 
6 ;START OF BANK LOOP 
6822 015420 004737 040052 2$: CALL EXBANK ;EXAMINE BANK 
6823 015424 004737 040456 CALL BANKOK : CORRECT MEMORY FOR THIS BANK? 
6824 0154 001013 BNE 4$ GO TO BANK LOOP TERMINATOR 
6825 015432 005737 002116 TST ACFLAG ‘CAN WE ACCESS THIS BANK? 
6826 0154 001410 BEQ 4$ ;NO - GO TO BANK LOOP TERMINATION 
6827 015440 005737 002130 TST BMFLAG ;IS THIS BAD an WORST FIRST) 
01 140 BEQ 4$ ;NO - GO TO BANK LOOP TERMINATION 
01 005737 002124 TST RRFLAG ;RELOCATION REQUIRED? 
6830 015452 001002 BNE 4$ ;YES - GO TO BANK LOOP TERMINATION 
01 004737 015562 CALL MTEST ‘GO TEST CORRECT MEMORY 
6832 ; TERMINATION OF BANK LOOP 
6833 015460 005037 002222 4$: CLR CONTFLAG 
6834 015464 004737 040520 CALL INC NK ;NEXT HIGHER BANK 
6835 015470 002353 BGE 2$ ;IF NOT DONE - LOOP ON THIS BANK 
6836 ; TERMINATION OF PATTERN LOOP 
6837 015472 005337 002112 DEC PATTERN ;NEXT LOWER PATTERN 
6838 015476 100346 BPL i$ ;0K - LOOP; ELSE CONTINUE 
683 ;END OF LOOPS 
6840 015500 005137 002134 COM TMFLAG ;COMPLEMENT TYPE OF MEMORY 
:IS THIS AN EVEN NUMBER PASS? 
6842 015504 001403 BEQ 5$ ;YES - SKIP 
6843 paseo oa CALL 
4 015506 004737 015410 CALL ARBAW ;CALL SELF 
6845 015512 000207 RETUR 
6846 015514 005137 002600 S$: COM WORST ;4TH PASS? 
6847 015520 001003 BNE 6$ ;YES - SKIP 
6848 ;*#*NOTE** RECURSIVE CALL 
6849 015522 004737 015410 CALL PARBAW ;CALL SELF 
6850 015526 00020 RETURN 
6851 015530 005737 002126 6$: TST RLFLAG sHAVE WE BEEN RELOCATED? 
6852 0155 001401 BEQ 7$ ;N KIP 
6853 015536 000207 RETURN :YES - RETURN 
6854 015540 004737 036402 7$: CALL RELOCATE ; MOVE —& MAP PROGRAM 
6855 015544 ON.ERROR THEN $RETURN 
015544 103001 BCC L135 
015546 207 RTS PC 
015550 Li3S:ssseee 
6856 ;#*#NOTE** RECURSIVE CALL 
6857 015550 004737 015410 CALL PARBAW ;CALL SELF 
6858 015554 004737 037214 CALL UNRELOCATE ;UNMOVE & UNMAP PROGRAM 
6859 015560 000207 RETURN 


—- — —_—_—_—————— Ee me 


14 


CVMJAAO MSV11-J MEMORY VOS5.O0lb Friday 15-Feb-85 16:10 Page 189 


DIAG. MACRO 
PATTERNS REVERSE,BANKS WORST FIRST **#RECURSIVEss 
6862 015562 MTEST: SUBTST <<SUBR SETUP MEMORY TEST>> 


! 

i 

{REREEEEEREEEEEEEE EEE EEE SESE EER EEEEERER AREER EERE EE EEEE SEES REE ESSE SEER EERE EEE 
| R TUP MEMORY TEST 


; *SUBTEST SUB 


SEQ 0180 


6863 015562 
015562 

6864 015570 
015570 

6865 015576 
6866 015602 
6867 015606 
6868 015610 
015610 

6869 015610 
015610 
015614 

6870 015616 
015616 
015622 

6871 015624 
6872 015650 
015630 

6873 015630 
5630 


646 
6879 015654 


012737 
012737 
005037 


012737 
000207 


177777 002612 
177777 002110 
002264 


002120 


002222 


002342 
015656 


017104 


017324 
002110 


177777 002612 


tind 


$ eit titi ti tittittiitiitiiiitiiiiiiiivitiititiitiiiitiitiiiitiiiiititiiiitiiiti tt 


MTi: 
MT2: 


SET HEADER ; INITIALIZE HEADER MESSAGE ew 


MOV HEADER 
SET MUT sINDICATE THERE IS A MEMORY UNDER TEST 
MOV -1,MUT 
CLR PASFLG 
TST MKFLAG ;ECC? 
BEQ MT1 ;NO - SKIP 
BEGIN HOLDLOOP 


IF CONTFLAG IS TRUE THEN LEAVE HOLDLOOP 
TST CONTFLAG 
BNE E16 

IF SKIPMK IS FALSE 
TST SKIPMK 
BNE L136 

CAL MKCONTROL 
END; OF IF SKIPMK 


END HOLDLOOP _ 
+ add ;YES - DO ECC TESTS 
MJTEST ;D0 PARITY TESTS 


CLR MUT ;NOW - NO MEMORY UNDER TEST 
SET HEADER ;ALLOW HEADERS NORMAL 
MOV #-1 »HEADER 


——_— 


——_—_— 


_CVMJAAO MSV11-J MEMORY DIAG. 
' SUBR SETUP MEMORY TEST 


6882 015656 


6887 
0 


6888 015676 


6904 016006 
6905 016012 
6906 016016 
pod Sprit 


6913 016054 
054 

016060 

6914 016060 
016060 
016066 

6915 016066 
016066 


016070 
016074 


013737 


010346 
013703 
004737 


002002 
002536 


002102 


177760 


002526 
002136 


002240 
120000 
002332 
002236 
002664 
177775 
160777 
002526 


002526 
177741 


016476 


002232 


002102 
035716 


——-————— eee eee --- -- - ——- 
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002232 
002234 


002234 


002152 
002152 


002226 





MKCONTROL : SUBTST 
{ROSES SSEEEEEEEEEEEESSESEEESSESSESEEEESASS ESSERE SESE ESE E SESE SESE CE EES E EEE E TEES 


; *SUBTEST 


SUBR 


SEQ 0181 
<<SUBR TEST ECC CSR LOGIC DISPATCH>> 
TEST ECC CSR LOGIC DISPATCH 


FESS SSEESSSSSSESSSSSSSSSSESSESRS SESS SSASSSSSSSESSSSSSSS SESS SE SESS SESS E SE EEEE EES 


1$: 


MKLOOP : 


; THE NEXT T 


VE THE PROBLEM OF 


WO MODULES SOL 
;HOW TO RUN THE CSR TESTS ON EACH ECC MEMORY 
iF SELONLY IS TRUE THEN $RETURN 


TST SELONLY 

BEQ L137 

RTS PC 
LAS7sssssss 


IF INHECC IS TRUE THEN $RETURN 


TST INHECC 
BEQ L140 
RTS PC 
Li4O0:;ssises 
PUSH BANK ,RO,R1,R2,R3 
MOV BANK, -(CSP) 
MOV RO, -(SP) 
MOV R1,-(CSP) 
MOV ~ Sa} 8. 
MOV R3,-(CSP) 
MOV #FIRST , CSRFBANK ;SET FIRST TEST ADDRESS TO FIRST ADDR. 
MOV #LAST ,CSRLBANK 
CLR CSRINT 
CLR SPLTCSR 
CLR CSRLOOP ; AND ZERO THE LOOP COUNTER 
MOV BANKINDEX ,RO ;GET THE BANK INDEX 
MOV CONFIGCRO), Ri ;GET CSR NUMBER 
SWAB Ri 
BIC #1C17,R1 
ASL rR 
MOV Ri, CSRHOLD ;STORE IN THE LOW BYTE 
TST INTFLAG ;IS THIS BANK INTERLEAVED? 
BEQ i$ ;BRANCHK IF NOT INTERLEAVED 
INC SPLTCSR 
MOV #120000 , CSRLBANK 
a se a ;WE MUST LOOP TWICE FOR AN INTERLEAVED BANK 
A ad oa Ri ;GET THE INTERLEAVE CSR NUMBER 
BIC #tC017000,R1 
an Ri. CSRHOLD ;STORE IT IN CSRHOLD'S UPPER BYTE 
MOVB ret ag sae CSRNO 
BIC #1036 ,CSRNO ;CLEAR ANY UNNECESSARY BITS 
FOR MKCNT := #0 TO CSRINT 
CLR MKCNT 
Bl7sssssss 
FOR CSRFIRST := CSRFBANK TO CSRLBANK BY #4000 
MOV CSRFBANK,CSRFIRST 
B20:ssises 
MAP BANK ;MAP TEST SPACE TO BANK 
MOV R3,-(SP) 
MOV BANK ,R3 
CALL MAPPER 


a ly ee ee - eee . — 


N14 
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| SUBR TEST ECC CSR LOGIC DISPATCH SEQ 0182 
-DSABL CRF 
016100 012603 MOV (SP)+,R3 
6916 016102 104511 INVALIDATE ;INVALIDATE BACKROUND PATTERN 
6917 016104 BEGIN CSRSTUFF 
016104 B2lisssea: 
6918 016104 005037 002334 CLR SUCCESS 
6919 016110 IF ACFLAG IS TRUE AND RRFLAG IS FALSE 
016110 005737 002116 TST ACFLAG 
016114 001503 BEQ@ L141 
016116 005737 002124 TST RRFLAG 
016122 001100 BNE L141 
6920 016124 013737 002226 002230 MOV CSRFIRST,CSRLAST 
6921 016132 062737 004000 002230 ADD #4000,CSRLAS 
6922 O1 FOR TESTADD := CSRFIRST TO CSRLAST BY #4 
$1 013737 002226 002412 — MOV CSRFIRST, TESTADD 
333583 
6923 016146 013737 002412 002414 MOV TESTADD, TESTADD+2 
6924 016154 005737 002240 TST SPLTCSR 
6925 0161 001404 BEQ 1$ 
6926 016162 062737 040000 002414 ADD #40000 , TESTADD+2 
6927 016170 00040 3R 
6928 016172 062737 9000002 002414 1$: ADD #2, TESTADD+2 
6929 016200 004737 016500 2$: CALL SBETEST 
6930 016204 ON.NOERROR 
016204 103440 BCS L142 
6931 016206 104424 CACHOFF ; TURN CACHE OFF 
6932 016210 005037 002076 CLR NOPAR ; INDICATE PARITY ACTION 
6933 016214 FOR I := #0 TO #27 
016214 005037 002452 CLR I 
016220 Bes:isssss 
6934 016220 SET HEADER 
016220 012737 177777 002612 MOV #-1,HEADER 
6935 016226 005037 002264 CLR PASFLG 
6936 016232 LET RO := I 
016232 013700 002452 MOV I,RO 
6937 016236 PUSH R3 ;SAVE LOOP COUNTER 
010346 MOV R3,-(SP) 
6938 016240 010637 002146 MOV SP,CTLKVEC ;SAVE VECTOR IN CSR OF tK 
6939 016244 162737 000002 002146 SUB #2,CTLKVEC 
6940 016252 004737 017004 CALL CSRCASE 
6941 016256 POP R33 ;sRESTORE LOOP COUNTER 
16 012603 MOV (SP)+,R3 
6942 016260 END ;OF FOR I 
016260 005237 002452 INC I 
016264 023727 002452 000027 CMP I,#27 
016272 003752 BLE B23 
016274 COS: ssssses 
6943 016274 104423 CACHON ; TURN CACHE ON 
6944 016276 . SET SUCCESS 
016276 012737 177777 002334 MOV #-1,SUCCESS 
6945 016304 LEAVE CSRSTUFF 
016304 000407 BR E21 
6946 016306 END ;OF ON.NOERROR 
LiSe:sssiss 
6947 016306 END ;OF FOR TESTADD 
016306 062737 000004 002412 ADD #4, TESTADD 
016314 023737 002412 002230 CMP TESTADD. CSRLAST 
| 





EE 


moe —s ~~ — eo — 


— ee ee | ce 
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Bis 
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016322 


o 
a 
Perak 


003711 


000001 
002332 
016040 


177777 
002240 


002226 
002234 


002236 


002232 
002240 


002222 


1$: 


MKCNT: 


SEQ 0183 | 
= BLE B22 
23583333 
END :OF IF ~~ 
T338338 
END CSRSTUFF 
EQlissssae 
IF SUCCESS IS FALSE 
TST SUCCESS 
BNE 1143 
TYPE MSGA34 
TYPEIT ,MSGA34 
. DSABL 
TYPOCS BANK,<TYPES BANK NUMBER>,3 
MOV BANK, -(SP) ;;SAVE BANK FOR TYPEOUT 
;;TYPES BANK 
TYPOS ;:;G0 TYPE--OCTAL ASCII 
BYTE 3 :;TYPE 3 DIGITC(S) 
BYTE 0 ;;SUPPRESS LEADING ZEROS 
-DSABL CRF 
TYPE MSGB34 
TYPEIT ,MSGB34 
.DSABL 
CALL PERBNK 
END ;OF IF SUCCESS 
LiSSsssssss 
END; OF FOR CSRFIRST 
ADD #4000, CSRFIRST 
CMP CSRFIRST,CSRLBANK 
a BLE B20 
SERRE 
INC SPLTCSR 
END; OF FOR MKCNT 
INC MKCNT 
CMP MKCNT,CSRINT 
£7 BLE 817 
S5888588 
ADD #2, CSRFBANK 
odd 0) SPL TUER 
CM R3,CSRLOOP 
ECCINIT ;TRAP ON DOUBLE BIT ERRORS (NORMAL ) 
SET CONTFLAG 
CLR SPLTCSR 
POP R3,R2,R1,RO, BANK 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV O35 40 aa 
MOV SP )« »RO 
MOV (SP)-+-,BANK 
RETURN 
0 sCOUNTER FOR MKLOOP 
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SUBR TEST ECC CSR LOGIC DISPATCH SFO O1R6 
6973 016500 SBETEST:SUBTST <<CHECK FOR SBE FREE LOCATIONS>> 
5S SSSS SS SSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSETSESSHSETSSESSESESRSSSSSSSSSEE SALES HSER RRR EES 
: ; #SUBTEST CHECK FOR SBE FREE LOCATIONS 
5 SSS SSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSSSESCSESESSSESSSRSESSSESSAESESSKSESSES SSR RRR ES 
| 6974 ;IN ORDER TO DETERMINE IF A LOCATION IS SBE FREE I DO THIS 
‘ 
6976 ;WRITE ZEROS WITH ECC DISABLE 
6977 ;READ ZEROS 
6978 ;IF NOT ZEROS THEN RETURN ERROR 
° 
6980 ;WRITE ZEROS WITH ECC ENABLED BUT TRAPS DISABLED 
698 ;READ ZEROS 
6982 IF NOT ZEROS THEN RETURN ERROR 
6984 ;TEST THE LOCATION FROM THE PAR’S (WITH NO PROGRAM FETCHES) 
6985 ;IF THERE WERE ANY SBE'S OR DBE'S THEN RETURN ERROR 
6987 SCOMPLIMENT ZEROS TO ONES WITH ECC DISABLE 
6988 ;READ ONES BACK 
6989 :IF NOT ONES THEN RETURN ERROR 
6991 :WRITE | 100, ,100000,00000 (CHECKBITS COMPLIMENT OF BEFORE) 
699 WITH ECC ENABLED BUT TRAPS DISABLED 
699 TEST THE LOCATION FROM THE PAR’S (WITH NO PROGRAM FETCHES) 
6994 SIF THERE WERE ANY SBE’S OR DBE’S THEN RETURN ERROR 
6996 ;IF NONE OF THE ABOVE FORCES A RETURN ERROR THEN RETURN NO.ERROR 
6997 ‘ENABL LSB 
6998 016500 PUSH RO, R1,R4 sPUSH RO,R1,R4 ONTO STACK 
016500 010046 MOV RO, -(SP) 
016502 010146 MOV R1,-(SP) 
016504 010446 MOV R4,-(SP) 
6999 016506 013701 002412 MOV —« TESTADD,R1 
7000 016512 013704 002414 MOV _TESTADD<2,R4 
7001 016516 TESTAREA ENTER TEST MODE 
016516 053737 002552 177776 BIS TESTMODE.PSw ;GO TO SYSTEM TEST MODE 
016524 104424 CACHOFF TURN CACHE OFF 
003 016526 104471 ECC10IS ;DISABLE ECC ON 1 SELECTED CSR 
CLEAR (R1),(R4) 
005011 CLR (R1) 
$168 501 cLR (RA) 
7005 016534 005711 TST —- (R11) 
7006 016536 001107 SBENT 
7007 016540 005714 TST = (RB) 
7008 016542 001105 BNE  SBENT 
7010 016544 104503 CLRICSR ;CLEAR 1 SELECTED CSR 
7011 016546 EAR (R1),(R4) 
016546 005011 CLR (R1) 
016550 00501 CLR (RA) 
| 7012 016552 005711 TST (RI 
| 7013 016554 001100 BNE  SBENT 
7014 016556 005714 TST —- (RA) 
| 3015 016560 001076 BNE BENT 
' 7017 016562 104510 TSTREAD TEST LOC (R1) & TST FOR SBE (WITHOUT FETCHES) 


——_——— OO 
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CHECK FOR SBE FREE LOCATIONS 
7018 016564 


SEQ 0185 
IF #BITiS!BIT4 SET.IN CSR 


_—_—_—_— 


016 032737 100020 002150 BIT #BIT1S!BIT4.csR 
016572 001415 L144 
7019 016574 SET SKPERR ;DISABLE ERRGEN’'S ERROR FRINTOUT 
016574 012737 177777 002066 MOV #@-1,SKPERR 
7020 016602 104512 ERRGEN 
7021 016604 013700 002460 MOV ERRADD,RO 
7022 016610 072027 177774 ASH #-4, y 
7023 016614 042700 177600 BIC #tC177 RO 
7024 016620 IF BANK EQ RO THEN GOTO SBENT 
0166 023700 002102 CMP BANK ,RO 
016624 14 BEQ SBENT 
7025 016626 END; OF IF #BITi5 
0 6 L144: seeeae 
7026 016626 104471 ECCiDIS ;DISABLE ECC ON 1 SELECTED CSR 
7027 016630 005111 COM (Ri) 
7028 016632 005114 COM 4) 
7029 016634 023711 002614 CMP ONES ,CR1) 
7030 016640 1 BNE ENT 
7031 016642 023714 002614 CMP ONES , (R4) 
ONS 016646 1043 BNE ENT 
7034 016650 104503 CLRiICSR ;CLEAR 1 SELECTED CSR 
7035 016652 5011 CLR Ri) 
7036 016654 012714 100000 MOV #BIT15,(R4) 
7037 016660 005711 TST CR1) 
7038 016662 1035 BNE SBENT 
7039 916664 022714 100000 CMP #BIT15,CR4) 
Ao 016670 001032 BNE SBENT 
7042 016672 104510 TSTREAD ;TEST LOC (R1) €& TST FOR SBE (WITHOUT FETCHES) 
7043 016674 IF #BITiS!B1IT4 SET.IN CSR 
016674 032737 100020 002150 BIT teats 
016702 001415 BEQ@ L145 
7044 016704 SET SKPERR ;DISABLE ERRGEN'S ERROR PRINTOUT 
016704 012737 177777 002066 MOV #-1,SKPERR 
7045 016712 104512 ERR 
7046 016714 013700 002460 MOV ERRADD,RO 
7047 016720 072027 177774 ASH #-4, 7 
7048 016724 2700 £77600 BIC. #tC177 RO 
7049 016730 IF BANK EQ RO THEN GOTO SBENT 
016730 023700 002102 CMP BANK ,RO 
016734 001410 BEQ SBENT 
7050 016736 END; OF IF #BIT15 
705) 016736 Li4ssssssss 
7052 016736 104417 KERNEL sENTER KERNEL MODE 
7053 016740 104473 ECCLIINIT s INITIALIZE 1 SELECTED CSR 
7054 016742 104423 CACHON ; TURN CAC 
7055 yp dime POP R4,R1,R0 ‘POP RO,R1 & R4& FROM STACK 
016744 012604 MOV (SP)+,R4 
016746 012601 MOV (SP)+,R1 
016750 2600 MOV (SP)+,RO 
7056 016752 $RETURN NOERROR 
016752 000241 CLC 
. 016754 000207 RTS PC 
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CHECK FOR SBE FREE LOCATIONS SEQ 0186 


_—_—-—— - 


7058 016756 104503 SBENT: CLRICSR ;CLEAR 1 SELECTED CSR 
7059 016760 CLEAR (R1),(R4) 
016760 005011 CLR (Ri) 
016762 005014 CLR (R4) 
7060 016764 104417 KERNEL ENTER KERNEL MODE 
1 016766 104473 ECCLINIT sINITIALIZE 1 SELECTED CSR 
7062 016770 104423 CACHON TURN CACHE ON 
7063 016772 POP —s-R4, R1, RO ;POP RO,R1 & R4 FROM STACK 
016772 012604 MOV (SP)+,R4 
016774 012601 MOV .SP)+-Ri 
016776 012600 MOV (SP)+.RO 
7064 017000 $RETURN ERROR 
017000 000261 SEC 
017002 000207 RTS PC 


.DSABL LSB 
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CHECK FOR SBE FREE LOCATIONS SEQ 0187 
-  -'7068 017004 CSRCASE:SUBTST <<CSR PATTERN CASE STATEMENT>> 
§ FESS SESE SESE SEE SSSR EKER KEE ERERERERESKESESEERERE REE KRERE EE 
: ; *SUBTEST CSR PATTERN CASE STATEMENT 
§ ESSE SSSR SKEKEESEESKESEESESESEESESEE CE SERES EEE 
| 7069 017004 
017004 010046 MOV RO, -(SP) 
017006 006316 ASL asP 
017010 004737 017074 JSR PC,L146 
7070 ;WARNING IF YOU CHANGE THIS TABLE ALSO 
Tors ;CHANGE "$DDWO" - “$DDWS” (THE PATTERN BIT MAP) 
7073 PAT TIME DESCRIPTION 
7076 017014 020222 MKCSRT: T0006 3<1 SEC INITIAL DATA TEST 
7076 : 
a ia ; MSV11-v ECC TESTS 
7079 017016 024024 MT0044 ; 5 SEC SHIFTING 1/0'S THROUGH CHECK BITS 
7080 017020 020354 MT0014 ; 1 SEC BASIC DOUBLE ERROR TEST 
7081 017022 024104 MT0045 ;<1 SEC SYNDROMES TO CSR ON DOUBLE BIT ERROR TEST 
7082 017024 023560 MT0036 ; 1 SEC CORRECTION CODE T 
7083 017026 0204 MT0020 ; 1 SEC SYNDROMES TO CSR ON SINGLE BIT ERROR TEST 
7084 017030 023622 MT0037 :<1 SEC ECC DISABLE TEST 
7085 017032 023660 MT0041 ; 1 SEC ADDRESS TO CSR ON DOUBLE BIT ERROR 
7086 017034 023740 MT0042 :<1 SEC EXTENDED ADDRESS TO CSR ON ERROR TEST 
7087 017036 023774 MT0043 3<1 SEC WRITE BYTE CLEARS SBE TEST 
7088 017040 024134 MT0046 ; 1 SEC CHECK SINGLE BIT ERRORS WITH ECC DISABLED TEST 
7089 017042 024164 MT0047 :<1 SEC NO CSR UPDATE ON SBE WITH EXSISTING DBE 
7090 017044 020320 MT0010 ;<1 SEC BYTE ADDRESSING TEST 
7091 017046 024220 MT0999 ; 0 SEC NULL TEST 
7092 017050 024220 MT0999 ; © SEC NULL TEST 
7093 017052 024220 MT0999 ; 0 SEC NULL TEST 
7094 017054 024220 MT0999 ; 0 SEC NULL TEST 
7095 017056 024220 MT0999 ; 0 SEC NULL TEST 
7096 017060 024220 MT0999 ; 0 SEC NULL TEST 
7097 017062 024220 MT0999 ; 0 SEC NULL TEST 
7098 017064 024220 MT0999 ; 0 SEC NULL TEST 
7099 017066 024220 MT0999 ; © SEC NULL TEST 
7100 017070 024220 MT0999 ; 0 SEC NULL TEST 
7101 017072 024220 MT0999 ; 0 SEC NULL TEST 
7102 017074 END ;OF CASE RO 
017074 LI46:isssi: 
017074 062616 ADD (SP)+,aSP 
017076 013646 MOV a(SP)+,-(SP) 
017100 004736 JSR PC, acSP)- 
7103 017102 000207 RETURN 
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CSR PATTERN CASE STATEMENT 


7106 017104 MKTEST: SUBTST <<SUBR ECC TEST DISPATCH>> 
FESS SESE SSESSES ESSE SEES SEES SERS EES SSE SEEKERS SESESE SEER RE SEE REEEESS 


SUBR ECC TEST DISPATCH 


SEQ 0188 | 


7107 017104 
017104 


; *SUBTEST 


POOeeP Pee TTT TTT TTT TTT TT TTT eT TTT TTT TTT TTT TTT TCTTTTTET TTT TTT TTT TTT TTT TT TTT TTT 


IF #SWO SET.IN @SWR OR ACTFLAG IS TRUE 


71 032777 000001 163524 BIT #SWO,aSWR 
017112 00100 BNE L147 
017114 005737 002350 TST ACTFLAG 
037340 001402 BEQ L150 
seeese 
7108 017122 104470 ECCDIS ;DISABLE ERROR connection 
7109 017124 ELSE 

017124 000401 BR L151 
017126 LiSO:sssss3 

7110 017126 104502 CLRCSR CLEAR ALL CSR’'S 

7111 eat + ND ;OF IF 

7112 017130 012737 000002 002076 MOV #2 ,NOPAR ‘ POTCATE PARITY Action 

7113 017136 012737 000002 002326 MOV #2 ,PCBUMP : TRAPS A 2T 

7114 017144 013700 002112 MOV PATTERN, RO sGET PATTERN NUMBER 

7115 017150 006300 ASL RO MAKE IT A WORD ADDRESS 

7116 017152 IF MKPATCRO) NE #M70034 AND mPatcRod NE #MT0999 
017152 026027 017244 023346 CMP MKPATCRO), #MT0034 
017160 001405 BEQ@ Li52 
017162 026027 017244 024220 CMP MKPAT(RO), #MT0999 
017170 001401 BEQ@ L152 

7117 017172 104511 INVALIDATE ; INVALIDATE BACKGROUND PATTERN ON “BANK” 

7118 ot 9174 END ;OF IF MKPATCRO) 

7119 017174 010637 002146 MOV SP ,CTLKVEC ;SAVE VECTOR IN CASE OF ft 

7120 017200 162737 000002 002146 #2, CTLKVEC 

7121 017206 770 017244 CAL aMKPATCRO) ; INDEX OFF TABLE 

7l22 017212 iF aSWO SET.IN @SWR OR ACTFLAG IS TRUE 
017212 032777 000001 163416 BIT #SWO,aSWR 
017220 100 BNE L153 
017222 005737 002350 TST ACTFLAG 
017226 001402 BEQ L154 
017230 LiSS:sisis: 

7123 017230 104506 ENASBE ; TRAP ON SINGLE BIT ERRORS 

7124 017232 ELSE 
017232 000401 BR L155 
017234 L154:ssssi3 

7125 017234 104472 ECCINIT ; TRAP ON DOUBLE BIT ERRORS (NORMAL ) 

7126 or aSse END ;OF IF #SWO 

7127 017236 005037 002076 CLR NOPAR ; INDICATE PARITY" acTiOn 

vies 017242 000207 RETURN 

7130 ;WARNING If YOU CHANGE THIS TABLE ALSO 

7131 : CHANGE "$DDWO" - “$DDWS" CTHE PATTERN BIT MAP) 

7132 PAT TIME DISCRIPTION 

7133 017244 _ MKPAT: :NOTE er MUST BE FIRST &€ LAST 

7134 017244 023346 MT0034 ;<i SEC ;SOFT ERROR - BACKGROUND PATTERN TEST 

7135 017246 020434 MT0017 <1 SEC ; HOLDING 1'S € 0’'S TEST 

7136 017250 020256 MT0007 <1 SEC ;ADDRESS BIT TEST 

7137 017252 017544 MTOOO1 ;<1 SEC ; ADDRESS TEST 

7138 017254 017640 MTO0O002 ;<1 SEC ; COMPLEMENT ADDRESS TEST 
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7139 017256 


7147 017276 
7148 017300 
7149 


1 
7150 017302 


7158 017322 


024220 


ECC TEST DISPATCH 
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MT0004 : 1 SEC ;ROTATING ZEROS TEST 
MTOOOS ; 1 SEC ;ROTATING ONES TEST 
MTO0021 ; 1 SEC ;MARCHING 0'S & 1'S TEST 
MTO0O022 ;10 SEC ;REFRESH S. aT DIAGONAL TEST 
MT0026 ;<1 SEC i ANDOM DATA TEST 
MT0024 ;20 SEC FAST GALLOPING PATTERN TEST 
MT0031 ; 3 SEC : SOB - A-LONG TEST 
MTO0O032 ;<1 SEC ;WRITE RECOVERY TEST 
bike oy 335 SEC ;BRANCH GOBBLE TEST 
MT0034 ;<1 SEC ;SOFT ERROR - BACKGROUND PATTERN TEST 
;NOTE MT0034 MUST BE FIRST & LAST 
MT0999 ; O SEC s;NULL TEST 
MT0999 ; O SEC ;NULL TEST 
MT0999 ; O SEC s;NULL TEST 
MT0999 ; O SEC ;NULL TEST 
MT0999 ; O SEC ;NULL TEST 
MT0999 ; O SEC s;NULL TEST 
MT0999 ; O SEC sNULL TEST 
MT0999 ; O SEC s;NULL TEST 
MT0999 ; O SEC s;NULL TEST 


TT —— — eee ee 


SEQ 0189 


———— ee 
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7161 017324 


7162 017324 
7165 017346 
7166 354 


0 
7167 017360 
7168 et ry: 


7175 017426 


017430 
7182 017430 
7183 017432 

84 017434 
7185 017436 
7186 017440 
718 442 


7200 017474 
7201 
7202 017476 


7206 017506 


012737 


020222 
020434 


024220 
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060002 
002112 


017430 
017430 


002146 
000002 
017430 
002076 
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023346 
024220 


002146 


MJTEST: SUBTST 


— oe eee oe oe 


115 


<<SUBR PARITY TEST DISPATCH>> 


§ FS SSSSSSSSSSSSSSSSSE SESS SS SSS SS SSSSSSSSERSSSE SESS SE RSE ER ESESESES EEE KE REESE E REESE 


; *SUBTEST 


PARITY TEST DISPATCH 


§FSSSSESSSSSSSSS SESS ASSESSES RES ERSRESSESEEEESEREREEREESEEESESECE SERRE TERE SEE ES 


MJPAT: 


MOV #2 ,NOPAR ; INDICATE PARITY ACTION 
MOV #2 , PCBUMP ; TRAPS ADD 2 TO PC 
MOV #F IRST, TESTADD 
MOV #FIRST+2, TESTADD+2 
MOV oe RO pV PATTERN NUMBER 
ASL E IT A WORD ADDRESS 


IF MJPATCRO) NE #MTO034 AND muPATCRO) NE #MT0999 
CMP MJPATCRO), @MTO03S4 


BEQ 
a 1.” eae 
; INVALIDATE BACKGROUND PATTERN ON “BANK” 


INVALIDATE 
ND ;OF IF MJPATCRO) sie 
MOV SP, CTLKVEC ;SAVE VECTOR IN CASE OF *tK 
SUB #2 ,CTLKVEC 
CALL @MJPATCRO) ; INDEX OFF TABLE 
eas NOPAR ; INDICATE PARITY ACTION 


;WARNING IF YOU CHANGE THIS TABLE ALSO 
;CHANGE "$DDWO" - “$DDWS” CTHE PATTERN BIT MAP) 


;PAT TIME DISCRIPTION 

sNOTE MT0034 MUST BE FIRST & LAST 

MTQ0034 ;<1 SEC ;SOFT ERROR - BACKGROUND PATTERN TEST 
MTO0006 ;<1 SEC ;INITIAL DATA TEST 
MTOO17 ;<1 SEC ;HOLDING 1'S & 0'S TEST 
MTOOO7 ;<1 SEC sADDRESS BIT TEST 
MTOOO1 ;<1 SEC s;ADDRESS TEST 

MTO0002 ;<1 SEC ;COMPLEMENT ADDRESS TEST 
MTOOOS ; 1 SEC ;3 XOR 9 WORST CASE NOISE TEST 
MT0004 ; 1 SEC ;ROTATING ZEROS TEST 
MTOOOS ; 1 SEC ROTATING ONES TE 
MTO0021 ; 1 SEC ; HING 0’S € 1'S TEST 
MTOO35 ;<1 SEC ;WORSE CASE NOISE PARITY TEST 
MTOQ0O022 ;10 SEC ;REFRESH TEST 
MTO0023 ;10 SEC : SHIF TING ‘ro TEST 
MT0026 ;<1 SEC RANDOM DATA TEST 
MT0024 ;20 SEC ;FAST GALLOPING PATTERN TEST 
MTO031 ; 3 SEC ;SOB-A-LONG TEST 

TOO 3<1 SEC WRITE RECOVERY TEST 
Bes 5 SEC ;BRANCH GOBBLE TEST 

MT0034 ;<1 SEC ;SOFT ERROR - BACKGROUND PATTERN TEST 
;NOTE MT0034 MUST BE FIRST & LAST 

MT0999 ; 0 SEC sNULL TEST 
MTO999 ; O SEC ;NULL TEST 
MT0999 ; O SEC ;NULL TEST 
MT0999 ; O SEC s;NULL TEST 
MT0999 ; 0 SEC ;NULL TEST 


-———— er 


SEQ 0190 
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SEQ 0191 
.SBTTL PATTERNS ) 
TTL MEMORY TEST SETUP ROUTINES 


. SB 
MTO0O000: SUBTST <<MTO000 SETUP DATA PATTERN TEST>> 
5 EREREEERERERE SEE EREEEA ESE SEREEE SERRE EERE ESSER EERE E SEER SEER REESE SEE ER ESSE EEE 


7208 
7209 


7210 
7211 017510 


; *SUBTEST MTOOOO SETUP DATA PATTERN TEST 
Tritt ir iri iii titi titi itr t iri iiiiiitit it itt. 
7212 017510 005037 002300 CLR E ;SETUP PATTERN NUMBER FOR TYPEOUT € DISPLAY 
7213 017514 012700 MOV #FIRST,RO 
7214 017520 012701 MOV #SIZE ,R1 
7215 017524 004737 032470 CALL REGCOPY 
7216 0175 012737 024640 002262 MOV #MTPOOO , SUPDOADD ;ELSE DO PATTERN IN MAIN MEMORY 
7217 017536 004737 024446 CALL SUPDO3 
7218 017542 000207 RETURN 
7219 017544 MTO0O1: SUBTST <<MTO001 SETUP ADDRESS TEST>> 
EERE EERERERERER REESE ES EEE SEER REESE EEEEEEEEEESEEEEEEEEEEESEE SEE EESEE CESS REE SESS 
; *SUBTEST MTO0O001 SETUP ADDRESS TEST 
eiTit itt iii iti iri iti trig titi iti iitit itt iti i iii iit iti iii iii ii iti iit iti tt 
7220 017544 012737 000001 002300 MOV #1,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
7221 017552 012700 060000 MOV #FIRST,RO 
7222 017556 012701 0000 MOV #SIZE,R1 
7223 017562 005737 002456 TST NOSUPER 
017 100 BNE 2$ 
7225 017570 023737 172252 172254 CMP SIPARS , SIPAR6 
7226 017576 001 BNE 4$ 
7227 017600 BR 3$ 
7228 017602 023737 177652 177654 2$: CMP UIPARS , UIPAR6 
7229 017610 100 BNE 4s 
7230 017612 012701 030000 3$: MOV #30000,R1 
7231 017616 00500 4$: CLR R2 
7232 017620 004737 032470 CALL REGCOPY 
7233 017624 012737 024664 002262 MOV #MTPOO1 , SUPDOADD ;SET UP CALLING ADDRESS 
7234 017632 004737 024446 CALL SUPDO3 
7235 017636 000207 RETURN 


- a 


| 


—— ee 


7236 017640 


7237 017640 
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7255 017746 
7256 017752 
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000002 
160000 
040000 


100001 
002456 
172252 


177652 


024716 
024446 
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~MTOOO02 SETUP COMPLEMENT ADDRESS TEST 


002300 


172254 


177654 


002262 


MT0002: SUBTST 
5 EERE EEEEEEEEEE EEE EEEEEAERESERER EERE EE EE EERE EEE EREREERESSRESEE SEE EE EEE E OEE EE ES 


;*SUBTEST 
b 
Pritt t titi i ittititittitiititiititititititittititi titi tii ti ttt itt itt t it itititiTitty 


2s: 
3$: 


4$: 


SEQ 0192 — 


<<MT0002 SETUP COMPLEMENT ADDRESS TEST>> 
MTO0002 SETUP COMPLEMENT ADDRESS TEST 


#2,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 


2s 
a 


3$ 
re 


#MTPOO2 , SUPDOADD 
SUPDO3 


;SET UP CALLING ADDRESS 


_ ae = ——eee <> <P <- ee o-oo co CSL —_ ——— —— meme” 
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M1002 SETUP COMPLEMENT ADDRESS TEST SEQ 0192 
| 7259 017754 MT0003: SUBTST <<MTO0003 SETUP 3 XOR 9 WORST CASE NOISE TEST>> 
FSS SSSSSSESSSSES SESS SSSESSS SSS SSESSESSESKSE SSS KLESSSSSSSSESSESSSSESSE SSE SEES SESS HE ESESESS 
; SUBTEST MT0003 SETUP 3 XOR 9 WCRST CASE NOISE TEST 
FSSSSSSSSSSSSSSSSSESSESSSSSESSSSSSSESESSE ESSE CEEAKESSEKASESSESSESSESSSSESSESSESESEEE SES SESEESES 
7260 017754 IF EQFLAG IS TRUE THEN $RETURY 
017754 005737 002132 TST EQFLAG 
017760 001401 BEQ L157 
e174 ieee 
7261 017764 012737 000003 002300 MOV #3, REALPAT ‘SETUP PATTERN NUMBER FOR TYPEOUT € DISPLAY 
7262 017772 005037 002326 CLR PCBUMP APS DO NOT ADD TO PC 
7263 017776 004737 032500 1$: CALL § FLIPWARN SETUP WARNING CONSTANTS & R2 
7264 020002 012701 060000 2$: MOV @FIRST,R1 ;R1 <-- STARTING ADDRESS 
7265 020006 012703 020000 MOV #20000 ,R3 
7266 020012 072327 177770 ASH $-8.,R3 ;R3 <-- R3/ 256. 
7267 020016 012702 000004 MOV 4,R2 ;SMALL LOOP SIZE 
7268 020022 012705 000100 MOV #64. ,R5 ;MEDIUM LOOP SIZE 
7269 020026 104415 SAVREG 
020030 012737 024750 002262 MOV @MTPAO3 , SUPDOADD 
7271 020036 004737 024446 CALL — SUPDO3 ;D0 IT IN MAIN MEMORY 
7272 020042 104416 RESREG 
7273 020044 012737 025010 002262 MOV #MTPBO3, SUPDOADD 
7274 020052 004737 024462 CALL § SUPDO4 
7275 020056 022737 000003 002616 4%: CMP #3,FLIPLOC DUNE WITH 4 PATTERNS 
7276 :((0,177777);(177777,0) ;(401,177777);(177777, 401]? 
7277 020064 001344 BNE 1$ ;NO - LOOP 
7278 020066 000207 RETURN 
7280 020070 MT0004: SUBTST <<MT0004 SETUP ROTATING ZEROS TEST>> 
ESSE SESSSSESSSESSESSERSESES SEARS KESSESSESESESESEEREESSESESESESESEESSEESESERESEEEEESEEESESSS 
; sSUBTEST MT0004 SETUP ROTATING ZEROS TEST 
SEE SEEESE CS SSSSSESSSSSSSSE SEES S SESE ESSEESESEEESEESESEEESESESESESCESEEESEEEESSE SES 
7281 020070 012737 000004 002300 MOV #4, REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
7282 020076 012737 000004 002326 MOV #4, PCBUMP STRAPS ADD 4 TO PC 
7283 020104 013702 002614 MOV ONES , R2 
7284 020110 004737 032630 CALL § BACKGND ;WRITE BACKGROUND OF ONES 
7285 020114 012700 060000 MOV #F IRST,RO 
7286 020120 012701 040000 MOV #SIZE,R1 
7287 020124 012737 025106 002262 MOV #MTPAO4 , SUPDOADD ;SET UP LINKS 
7288 020132 004737 024462 CALL SUPDO4 
7289 020136 000207 RETURN 
7290 020140 MT0005: SUBTST <<MT0005 SETUP ROTATING ONES TEST>> 
SSS SSSSSSSESES SSS ESS SSSSSSESSEKSESSESASSESS SSS SSSR SSSESSSSSSSE SSE SSESESSESSESESES EL SESCEETE 
; «SUBTEST MTOO0S SETUP ROTATING ONES TEST 
FSS SSSSES SSS SSS SSS S SESS SSE SSS SESS S SSS SESS SESS SSS SSSSESSESESSSSSSES ESSE SESE SESS 
7291 020140 012737 000005 002300 MOV #5,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
7292 020146 012737 000004 002326 MOV #4, PCBUMP ;TRAPS ADD 4 TO PC 
7293 020154 005002 CLR R2 
7294 020156 004737 032630 CALL § BACKGND ;WRITE BACKGROUND OF ZEROS 
7295 020162 012700 060000 MOV @FIRST ,RO 
729 020166 012701 040000 MOV #SIZE,R1 
7297 020172 012737 025162 002262 MOV #MTPOOS , SUPDOADD ;SET UP LINKS 
7298 020200 012737 025176 025160 MOV #MTP005- 14 ,MTPBO4 +16 
7299 020206 004737 024462 CALL § SUPDO4 . 
7300 020212 012737 025122 025160 MOV @MTPAQ4+14,MTPBO4+16 ;RESET TEST'S ORIGINAL VALUE 


7301 020220 000207 RETURN 


ee 





| eee MSV11-J MEMORY 
MTOOOS SETUP ROTATING ONES TEST 


7304 020222 


7305 020222 


7309 
7310 020254 
7311 020256 


7312 020256 
7313 020264 


7314 020266 
7315 020272 


7321 020320 


7322 020320 
7323 020326 
7324 020334 
7325 020340 


7326 020346 
7327 020352 


_— ee ee 


012737 


012737 
005002 
004737 
012701 
012702 
050201 
012737 
004737 
000207 


012737 


DIAG. 


000007 
032630 
060000 
000001 


025416 
024446 


024446 


002300 
002326 


002262 


002300 


002262 


002300 
002326 
002262 


M15 
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SEQ 0194 — 


MT0006: SUBTST <<MT0006 SETUP INITIAL DATA TEST>> 
§ SSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSS SS SSE SE ESSERE RSESERE SESE SEES ESESE 
; SUBTEST SETUP INITIAL DATA TEST 
SF SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSESSSSE SESE SSERSESESRSERESEEE SESE SESE EES 
MOV 6 ,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
MOV 94, PCBUMP TRAPS ADD 4 TO PC 
MOV STESTADD,R1 
MOV @MTPO06 , SUPDOADD a 
CALL SUPDOS ;D0 if IN SUPERVISOR MODE 


MTO0007: SUBTST <<MT0007 SETUP ADDRESS BIT TEST>> 
{PERS EEERESE SEES SEER ESE EEREEEERESEEEESEEEEAEEESEEEEEEEE TESS ERRORS ESSE EES EE EES 


; *SUBTEST MTO0007 SETUP ADDRESS BIT TEST 
{ERE eESEEEEEE EEE EREEEEESSEESEEEEERESEEEEE SEES EEEEEEEEEEEEEEEEEEEEEREEEEDESEE SS 
oe! —* ;SETUP PATTERN NUMBER FOR TYPFOUT &€ DISPLAY 
CALL BACKGND ;0F ZEROS 
MOV #FIRST,R1 
MOV #1,R 
BIS R2,R1 
MOV #MTPO07 , SUPDOADD 
tte SUPDO3 ;D0 IT IN SUPERVISOR MODE 
MTO0010: SUBTST <<MTO010 SETUP BYTE ADDRESSING TEST>> 


5 PRREREEREEEEE EES EEERE REESE SEES SEER EERES EERE EER EEEEEEEEEEEESSO4OO444488 4 OSES EEE 

; *SUBTEST MTOO10 SETUP BYTE ADDRESSING TEST 

5s RREEREEEREEEE EERE EERE EERE EEE E ESSERE EEEEEEE EES SE AEEEE EEE ES EEEEEEEEEEEEEE EEE E OSES 
MOV #10,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
MOV #4 , PCBUMP ;TRAPS ADD 4 TO PC 
MOV TESTADD ,R4 

MOV #MTPO10, SUPDOADD 
SUPDO3 ;D0 IT IN SUPERVISOR MODE 


CVMJAAO MSV11-J 
7330 020354 
7331 020354 

020354 
020360 
020362 
020366 


020370 
7332 020370 
020370 


7340 020432 


MEMORY DIAG. 
MTO00O10 SETUP BYTE ADDRESSING TEST 


012737 
004737 


012701 
37 


002350 
002352 


056654 


000014 
037740 
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002300 


N15 


SEQ 0195 | 


MT0014: SUBTST <<MT0014 SETUP BASIC DOUBLE BIT ERROR TEST>> 
5 HS AESSSEEREESEEEEEESSESEEEESESESEESERESEEEESSSERESESERESES SEES SESE ES eDeEEEs 
; *SUBTEST MT0014 SETUP BASIC DOUBLE BIT ERROR TEST 
{PRR EREEEEEERESEEEEERESESERERERESEEEEESESEERESEEEE REESE EERE ESSE ERE SEER EEEEE SES 
IF ACTFLAG IS TRUE OR APTFLAG IS TRUE 
TST ACTFLAG 
BNE L160 


TST APTFLAG 
BEQ@ L161 
L160:ssssis 


TST $PASS 
BEQ L162 


L 
RTS PC 
L162:ssisi3 


—— a 


—<—<—~———— <— 


IF $PASS NE #0 THEN $RETURN 


END; OF IF ACTFLAG 


L161: 
MOV -—«s- #14, REALPAT :SETUP_PATTERN NUMGER ‘OR TYPEOUT & DISPLAY 
CALL MAPKERNAL MAP KERNAL SPACE 
LET R1 := #100000 ‘SETUP TEST ADDRESS sitet 
CALL ‘GETCSR ,GET CSR INFO FROM CONFIGURATION TABLE 
CALL MTPO14 ;00 BASIC DOUBLE BIT ERROR TEST 
CALL UNMAP ‘UNMAP KERNAL SPACE 


——— = 


ye 


~~ Le 


AYOO18 SETUP BASIC DOUBLE 


7343 
7344 020434 


7 7 7 
, 012737 Sas Sth 
i 024446 


Bie 
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MT0017: SUBTST <<MTOO017 SETUP HOLDING 1'S & 0'S>> 
j POCSSCSSSS SSS SSS SSSSSSSSSSSSSSSSSSSATSSSAASAESSSASSHTATAAESA ETE TeReeeEseeeeeeess 
;*SUBTEST MTO017 SETUP HOLDING 1'S € 0’S 


SS SSSSSSSSSSSSSSSSSSSSSSSSESSESSSSESSSSSSSSESSESESSSESESSSSHESSSSSSRLESSSSCeSseesaceeeses 


002300 MOV «#17. REALPAT SETUP PATTERN NUMBER FOR TYPEOUT AY 
002262 MOV .—=»«- @MTP.017, SUPDOADD : » on. 
CALL  SUPDO3 ;D0 IT IN SUPERVISOR MODE 


SEQ 0196 


= —_———_— <- — 


- 


C16 
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SETUP MOLDING 1°5 60'S —_ 


MT0017 SEQ 0197 
7351 020456 T0020: SUBTST <<MT0020 SETUP SYNDROMES TO CSR ON SINGLE BIT ERROR>> | 
F SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSESESSEKCSESSSSESHSESSESSSSSSSSS SSS eeeseeees 
; *SUBTEST SETUP SYNDROMES TO ON T 
5 FSS SSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSESSESSESSSEKSESSESCSSSSSESASSHSSSSARARSESSSASSESESEEEE 
7352 920456 eile - IF ACTFLAG IS TRUE OR APTFLAG IS TRUE at dileiains 
930462 001003 L163 
737 002352 TST APTFLAG 
0470 001404 L164 
020472 LIGSsssscee 
7353 72 IF $PASS NE #0 THEN $RETURN 
0472 005737 056654 TST $PASS 
0476 001401 BEQ L165 
0 000207 RTS PC 
0 2 LI6S:sssess 
7354 020502 END; OF IF ACTFLAG 
LiIG64G:iisse 
7355 2 012737 900020 002300 MOV —«- #20, REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
7 10 004737 037740 CALL ; E E 
7 14 LET R1 := #100000 ;SETUP TEST ADDRESS 
0 14 012701 100000 MOV #100000,R1 
7358 © 004737 032674 CALL GETCSR ;GET CSR INFO FROM CONFIGURATION TABLE 
7359 020524 004737 026126 CALL MTPO20 ;D0 SYNDROMES TO CSR ON SINGLE ERROR TEST 
7360 0 05 © 004737 040026 CALL UNMAP ;UNMAP KERNAL SPACE 
7361 020534 000207 RETURN 


———_————_- 


-— ——- _——— = 
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MACRO VO5. 
MTO0020 SETUP SYNDROMES TO CSR ON SINGLE BIT SEQ 0198 


7363 020536 MT0021: SUBTST <<MT0021 SETUP MARCHING 0'S & 1'S TEST>> 
§ SSS SSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSESSTSESTESSESSECESREESESSESSESSSRASCRS REESE 
; *SUBTEST MT0021 SETUP MARCHING O'S & 1'S TEST 
599 SSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESESSSSSSSSEEESSESCESEESSSSSSSSESSSAASSSeSSSeS RE eee 
7364 020536 OPE 
020536 012737 177777 002440 MOV #@-1,NOSCOPE 
365 020544 012737 000021 002300 MOV $21, REALPAT ;SETUP PATTERN NUMBER FOR TYPEQUT & DISPLAY 
020552 013702 002632 MOV BAKPAT ,R2 
7367 020556 737 032630 CALL BACK 
7368 020562 010203 MOV R2,R3 
7369 02 303 R3 
012701 160000 MOV SLAST+2,R1 
7371 020572 010105 MOV 1,R5 
7372 020574 012704 060000 MOV SFIRST,R4 
7373 020600 022737 000005 004010 CMP #5, PROTYP ;IS THIS AN 11/83 
7374 02°606 0014 BEQ 13 ;BRANCH IF IT IS 
7375 020610 022737 000003 004010 CMP $3, PROTYP :IS THIS AN 11/24? 
7376 020616 001407 BEQ 3$ :BRANCH IF SO 
7377 020620 022737 000007 002102 CMP #7, BANK 
7378 020626 001003 BNE 
7379 020630 012701 140000 MOV #140000,R1 
7380 0 010105 MOV 1,R5 
7381 020636 022737 000177 002102 33: CMP #177. BANK 
7382 020644 00100 BNE $ 
7383 02 012701 140000 MOV #140000,R1 
7384 020652 010105 MOV R1,R5 
7385 020654 012737 026442 002262 5+: MOV #MTPA21 , SUPDOADD 
7386 020662 737 024446 CALL 
7387 020666 012737 026472 002262 MOV #MTPB21, SUPDOADD 
7388 020674 737 024462 CALL § SUPDO4 
7389 020700 010401 MOV R4,R1 
7390 020702 012737 026526 002262 MOV #MTPC21, SUPDOADD 
7391 020710 737 024462 CALL § SUPDO4 
392 020714 012737 026562 002262 MOV #MTPD21 , SUPDOADD 
7393 020722 737 024462 CALL §§ SUPDO4 
7394 020726 34 BR 2$ 
7395 920730 022737 000177 002102 1%: CMP #177, BANK 
7396 020736 001003 BNE 
7397 020740 012701 140000 MOV #140000,R1 
7398 020744 010105 MOV a 
7399 020746 012737 026442 002262 43: MOV #MTPA21, SUPDOADD 
400 0207 737 024446 CALL 
7401 020760 012737 026472 002262 MOV. —+#MTPB21,SUPDOADD 
402 0207 737 024462 CALL §§ SUPDO4 
7403 020772 010401 MOV R4,R1 
7404 020774 012737 026526 002262 MOV #MTPC21 , SUPDOADD 
7405 021002 737 024462 CALL 
7406 021006 012737 026562 002262 MOV #MTPD21 , SUPDOADD 
7407 021014 737 024462 CALL § SUPDO4 
7408 021020 005037 002440 2$: CLR NOSCOPE 
7409 021024 RETURN 


—_— oe eer oe 
—_—_— oo 


—— —— — mee eae ~——-— « a -_—— 


E16 
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MT0021 SETUP MARCHING 0’S & 1’S TEST SEQ 0199 


7411 021026 MTOO022: SUBTST <<MT0022 SETUP REFRESH € SHIFTING DIAGONAL TEST>> 
TTT TTT TELE LLL T TTT TTT RTT TTT TT TTT 
;*SUBTEST MTOO22 SETUP REFRESH € SHIFTING DIAGONAL TEST 
TTT TITTLE ELLE LL LLL LLL TLL TT TTT TT TTT tt 
7412 021026 004737 024234 CALL KAMITEST ;CHECK FOR KAMIKAZE MODE 
7413 021032 ON.ERROR THEN $RETURN ;IF NOT IN KAMIKAZE MODE RETURN 
021032 103001 BCC L166 
021034 000207 RTS PC 
021036 pS 
7414 021036 012737 000022 002300 MOV #22,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
7415 021044 012737 026612 002262 MOV #MTPO22 , SUPDOADD 
7416 021052 004737 024446 CALL SUPDO3 ;D0 IT IN SUPERVISOR MODE 
Lt 021056 000207 RETURN 
7419 021060 MT0023: SUBTST <<MT0023 SHIFTING DIAGONAL TEST>> 
5 ECE ERA AE REESE EERE ERESE EERE ERESE REESE EERE SEE EERE RRR R ERE E EERE RE REESE RE EE REE EE 
;*SUBTEST MT0023 SHIFTING DIAGONAL TEST 
58K EAREE ERE EEE ERREEER EAE RES EERE ER ERE EEE ER REESE EEE EEES ES EEEEEEEERE ERE EERE ERED 
7420 021060 004737 024234 CALL KAMITEST ;CHECK FOR KAMIKAZE MODE 
7421 021064 ON.ERROR THEN $RETURN ;IF NOT IN KAMIKAZE MODE RETURN 
SStoee 103001 BCC L167 
021 000207 PC 
021070 LLGTa ta Ag ts 
7422 021070 012737 000023 002300 MOV #23, REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
7423 021076 012737 026612 002262 MOV #MTPO22 , SUPDOADD 
7424 021104 SET DIAGFLAG ; IDENTIFY DIAGONAL TEST TO MTPO22 
021104 012737 177777 002004 #-1,DIAGFLAG 
7425 021112 004737 024446 CALL SUPDO3 ;0D0 IT IN SUPERVISOR MODE 
7426 021116 005037 002004 CLR DIAGFLAG 
7427 021122 000207 RETURN 


EL a 


dee 
a mr aS OO OTD OT” 


- —— 


7429 021124 


7430 021124 
7431 Settee 


1 
132 
134 
134 
134 
142 
7434 021150 
7435 021154 
7436 60 


7460 021306 


7461 

7462 021312 
7463 021314 
7464 021316 
7465 021320 
7466 021324 
7467 021330 


004737 


103001 
000207 


012737 
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MT0023 SHIFTING DIAGONAL TEST 


024234 


177777 
000024 
002632 
032630 


060000 
157776 
000005 
000003 


000007 


137776 
000177 


137776 


027326 
000177 
137776 


027326 
024462 


024462 
002440 


F16 
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002440 
002300 


004010 
004010 
002102 


002102 


002262 
002556 


002262 


MT0024: 


SUBTST 


<<MT0024 


SETUP FAST GALLOPING PATTERN TEST>> 


§ ESSE SESSESSESES SS SSSS SESS ESSERE SESS SESS SSS SESSSSESRSTESSERESKESSSSSSEASRESSSE ERE EEETE 


;*SUBTEST 


§ FEES SSESSESSEES SESS SS SSS SSS S SSCS ESSE SSESECEESSESSEKKSESSSEKRSSSESSRKEEERERE KEES EEEE 


3$: 


7$: 


1$: 


4$: 
2$: 


ALL 


ON.ERROR THEN $RETURN 


MT0024 SETUP FAST GALLOPING PATTERN TEST 


KAMITEST ;CHECK FOR KAMIKAZE MODE 
;IF NOT IN KAMIKAZE woe” ay 


SET NOSCOPE 

MOV #24 ,REALPAT 
MOV BAKPAT ,R2 
CALL BACKGND 

MOV R2,R3 

MOV R3,R4 

SWAB R4 

MOV #FIRST,R1 

MOV #LAST,RS 

CMP #5,PROTYP 

BEQ 1$ 

CMP #3,PROTYP 

BEQ 3$ 

CMP #7, BANK 

BNE 3$ 

MOV #137776,R5 
CMP #177,BANK 

BNE 7$ 

MOV #137776,R1 
MOV R1,R5 

SAVREG 

Hy en 
CMP #177,LASTBANK 
BNE 4$ 

MOV #137776,R5 
SAVREG 

MOV #MTPB24 , SUPDOADD 
CALL SUPD04 

;D0 IT AGAIN FOR COMPLEMENT DATA 
RESREG 

SWAB R2 

SWAB R3 

CALL SUPD04 

CLR NOSCOPE 
RETURN 


. oocom oom ow 


SEQ 0200 


MOV #-1,NOSCOPE 
;SETUP PATTERN NUMBER FOR TYPEQUT & DISPLAY 


nti 
7 - TE TT 


MT0024 
7470 021332 


7471 021332 
7472 021340 


75 21536 
7505 021544 
7506 02155 


7513 021606 


012737 
005037 


- ——— me a eae 
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SETUP FAST GALLOPING PATTERN TEST 


060000 
020000 
000005 
000003 
000007 


014000 
000177 


014000 
027364 
027360 
024446 
027410 
027400 
027374 
024446 
000177 
014000 


027364 


027374 
024446 
002604 
002602 
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002300 


004010 
004010 
002102 


002102 


027464 
002262 


027464 
002262 


002102 


027464 
002262 


027464 
002262 


MT0026: SUBTST 
{EEEEEESEEESES EEE SEES SES EESSESE SESS EREE TERETE SER EES A RAR EE ERA ETRE EEE ERE EE ES 


; *SUBTEST 
s 
ee ma «cena 


3$: 


7$: 


1$: 


4$: 


2$: 


G16 


<<MT0026 


MT0026 
#26 ,REALPAT 

CLR PCBUMP 
MOV SEEDLO,R3 
MOV SEEDHI, 
MOV R3,RS 
MOV R2,R4 
MOV #FIRST,R1 
MOV #SIZE/2,RO0 
CMP #5,,PROTYP 
BEQ 1$ 
CMP #3,PROTYP 
BEQ 3$ 
CMP #7,BANK 
BNE 3$ 
MOV #14000, RO 
CMP #177,BANK 
BNE 7$ 
MOV #14000 ,RO 
SAVREG 
MOV #MTPA26+4 ,MTPD26+14 
MOV #MTPA26 , SUPDOADD 
CALL SUPDO3 
CLR RANODD 
MOV #MTPB26+4 ,.MTPD26+14 
MOV #MTPB26 , SUPDOADD 
RESREG 
CALL SUPDO3 
BR 2$ 
CMP #177,BANK 
BNE 4 
MOV #14000 ,RO 
SAVREG 
MOV #MTPA26+4 ,MTPD26+14 

V #MTPA26 , SUPDOADD 
CALL SUPDO3 
CLR RANODD 
MOV #MTPB26+4 ,MTPD26+14 
MOV #MTPB26 , SUPDOADD 
RESREG 
CALL SUPDO3 
MOV R3,SEEDLO 
MOV Re, SEEDHI 
RETUR 


—— ee —_————— e eee 6 ——_ — -— ss ee 


SETUP RANDOM DATA TEST>> 
UP RANDOM DATA TEST 


;TRAPS DO NOT ADD TO THE PC 
; INITIALIZE RANDOM NUMBERS 


;D0 WE HAVE AN 11/783 ? 
;BRANCH IF WE DO 


311/24? 
: BRANCH IF SO 


;FOR ERROR REPORTING 
;SET UP NEXT LINK 


;FOR ERROR REPORTING 
;SET UP NEXT LINK 


;UPDATE FOR NEW RANDOM NUMBERS 


SEQ 0201 


a 
——— o-oo 


—_ * POPE Em eee ee —<« . . ss _-- —_ — 


H16 
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T0026 SETUP RANDOM DATA TEST 
| 7516 021610 


SEQ 0202 


MT0027: SUBTST <<MT0027 UNIQUE BANK TEST>> 
{FEES EEE EEEEEE EEE ESE SEES EE EEE EEE EERE RES ERASE SESE EERE EEEE EERE RRR REE ER EE EEE 


;*SUBTEST MT0027 UNIQUE BANK TEST 
5 EEEEEEEEEEEEEEE EEE SESE SE SSEEEREEE EERE REESE EERE EEE EEE ER ERE TERETE ERE ROE EES 


7517 ;MAKE SURE THAT EACH BANK CAN HAVE UNIQUE DATA 
7518 ;WRITE AND READ THE BANK NUMBER IN EACH BANK (EXCEPT WHERE THE PROGRAM IS) 
7519 021610 012737 000027 002300 MOV #27,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
7520 021616 104502 CLRCSR ;CLEAR CSRS 
7521 021620 012737 024446 002522 MOV #SUPD03,LINK1 ;SET UP 
_ o31636 012737 177777 002426 oo MOV #-1,NOFSMODE 
«2. 
7523 021634 STAR27: FOR I := #1 TO #2 
021634 012737 000001 002452 MOV #1,I 
021642 B24a:sssic: 
7524 021642 FOR BANK := #0 TO LASTBANK 
021642 005037 002102 CLR BANK 
021646 BeS:sisssi 
7525 021646 004737 040052 CALL EXBANK 
7526 021652 IF ACFLAG IS TRUE AND RRFLAG IS FALSE 
021652 005737 002116 TST ACFLAG 
021656 001436 BEQ L171 
021660 005737 002124 TST RRFLAG 
021664 001033 BNE Li71 
7527 021666 104511 INVALIDATE ;INVALIDATE BACKGROUND PATTERN ON “BANK” 
7528 021670 LET R2 := BANK 
021670 013702 002102 MOV BANK,R2 
7529 021674 012700 060000 MOV #FIRST,RO 
7530 0217 010004 MOV »R4 
7531 021702 012701 040000 MOV #SIZE,R1 
7532 0217 010103 MOV Ri, 
7533 021710 IF I EQ #1 
0217 023727 002452 000001 CMP I,#1 
0217 001005 BNE L172 
7534 021720 012737 027704 002262 MOV #MTPO34 , SUPDOADD 
7535 021726 004777 160570 CALL aLINKi 
7536 021732 END ;OF IF 
02173 LI7e:sssiss 
7537 021732 IF I EQ #2 
021732 023727 002452 000002 CMP I,#2 
021740 001005 BNE L173 
7538 O21742 012737 027712 002262 MOV #MTP034+6,SUPDOADD 
7539 021750 004737 024446 CALL SUPDO3 
021? ND ;OF IF 
021754 LA7S:sssess 
7541 021754 END ;OF IF 
0217 LI7A:ssssss 
7542 021754 END ;OF FOR BANK 
021754 005237 002102 INC BANK 
021760 023737 002102 002556 CMP BANK,LASTBANK 
0217 003727 BLE B25 
02177 CO5ssssssss 
7543 021770 END ;OF FOR I 
021770 005237 002452 INC I 
021774 023727 002452 000002 CMP I,#2 
022002 003717 BLE 824 
004 E24ssssssss 





IF FS7FLAG IS TRUE 


MT0027 


CVMJAAO MSV11-J MEMOR 
BANK TES 


UNIQUE 
2004 


022026 

7549 022026 
022026 
022034 

7550 022034 
7551 022040 
040 

044 

022046 
022052 

7552 022054 
054 

7553 022060 


7558 022076 
022976 
022104 

7559 022106 

7560 022114 

7561 tet 


12 
7562 022120 
120 


022172 
7569 022172 
7570 022176 


012737 


013737 
004737 


013702 
005102 
012700 
010004 
012701 
010103 
023727 
001005 
012737 
004777 


023727 
001005 
012737 
004737 


Y DIAG. 
T 


002446 
002426 


000001 


002556 
040052 
002116 
002124 


002102 
060000 
040000 


002452 


027704 
160402 


002452 


027712 
024446 


002102 
002102 


002452 
002452 


002426 


Senet EE me ee ~ 
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002452 


002102 


000001 
002262 


000002 


002262 


000000 


000002 


CLR  NOFSMODE 
RETURN 
END ;OF IF FS7FLAG 
FOR I := #1 TO #2 


FOR BANK := LASTBANK DOWNTO #0 
CALL EXBANK 
IF ACFLAG IS TRUE AND RRFLAG IS FALSE 


LET R2 := BANK 


COM Re 

MOV #F IRST,RO 
MOV RO,R4 

MOV #SIZE,R1 


MOV R 
IF I EQ #1 


MOV #MTPO34 , SUPDCADD 
CALL @LINK1 

END ;OF IF 

IF I EQ #2 
MOV #MTP034+6, SUPDOADD 
CALL SUPD03 

END ;OF IF 

END ;OF IF 


END ;OF FOR BANK 
END ;OF FOR I 


CLR NOF SMODE 
RETURN 


L174:3;3; 


TST FS7FLAG 
BEQ L174 


bei 
MOV #1,I 


MOV LASTBANK , BANK 


Be7 sissies 


TST ACFLAG 
BEQ L175 
TST RRFLAG 
BNE L175 


MOV BANK ,R2 


CMP I, #1 
BNE L176 


CMP I,#2 
BNE L177 


LI7S:ssssee 


DEC BANK 
CMP BANK , #0 
BGE B27 


Cov: sssssss 


INC I 
CMP I,#2 
BLE B26 


SEQ 0203 


—_— a le 


CVMJAAO MSV11-J MEMORY DIAG. 
MT0027 QUE BANK TEST 


UNI 


7573 022200 


7574 022200 
7575 sees 


7576 032212 


0 
7582 Sseaen 


022264 
7583 022264 
7584 : 


0 
7585 
0 


406 
7601 022406 


005037 
012737 


012737 
012737 


005037 
004737 


005737 
001414 


005737 
001411 


012737 
104502 
004737 


103010 
104472 


013737 


002264 
177777 


177777 
177777 


002102 
040052 
002120 


002116 
002124 
040000 


060000 
160174 


002102 
002102 


002264 


177777 
036402 


002426 
002440 
002542 


002310 


J16 
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MT0030: SUBTST 


SEQ 0204 


<<MT0030 SETUP FLUSH OUT DBE'S TEST>> 


§ FEES SSESSSSSESESESSSSESKSESESS SSS SSS SSS ESS SSE EASTER SRE EERE RR REREES 


; *SUBTEST MTOO30 SETUP FLUSH. OUT DBE'S TEST 
Pitt tt ttt ttt ttt ttt ttt ttt ttt ttt ttt ttt ttt ttt TTT TTT TTT TTT TTT TTT TTT TTI TTTTTiTitTiTT 
CLR PASFLG 
SET FULLREL 
002542 MOV #-1,FULLREL 
002300 MTAO30: MOV #30 ,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT — DISPLAY 
002076 MOV #1, NOPAR ; INDICATE COUNT PARITY ERRORS 
002522 MOV #SUPD03, LINK 
002262 MOV #MTPO30, SUPDOADD 
ECCDIS ;DISABLE ERROR CORRECTION 
SET NOF SMODE , NOSCOPE 
002426 MOV #-1,NOFSMODE 
002440 MOV #-1,NOSCOPE 
FOR BANK := #0 TO LASTBANK 
CLR BANK 
B30:ssssae 
CALL EXBANK 
IF MKFLAG IS TRUE 
TST MKFLAG 
BEQ L200 
IF ACFLAG IS TRUE AND RRFLAG IS FALSE 
TST ACFLAG 
BEQ L201 
TST RRFLAG 
BNE L201 
MOV #SIZE,R1 
1 fl #FIRST, RO 
CAL @LINK1 
END SOF IF ACFLAG 
L2Ol:sissse 
END ;OF IF MKFLAG 
L200: iiss: 
END ;OF FOR 
INC BANK 
002556 CMP BANK ,LASTBANK 
BLE B30 
ESO:ssssiss 
IF PASFLG IS FALSE 
TST PASFLG 
BNE L202 
SET PASFLG 
002264 MOV #-1,PASFLG 
CLRCSR ;CLEAR CSRS 
CALL RELOCATE 
ON.ERROR 
BCC L203 
ECCINIT TRAP ON DOUBLE BIT ERRORS (NORMAL) 
CLEAR NOF SMODE , ‘NOSCOPE, FULLREL 
CLR NOFSMODE 
CLR NOSCOPE 
CLR FULLREL 
RETURN 
END ;OF ON.ERROR 
L203:sss333 
002102 MOV NEWBANK,BANK 





<n ld“ “ai, ee ae ae 


CVMJAAO MSVil-J MEMORY DIAG. 


MTO0030 SETUP FLUSH OUT 


7602 022414 


022446 
7610 022452 


DBE’S T 


040052 
022212 
037214 


K16 
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CALL EXBANK 
CALL MTAO30 
ECCINIT ; TRAP ON DOUBLE BIT ERRORS CNORMAL ) 
CALL UNRELOCATE 
RETURN 
END ;OF IF PASFLG 
L202:isisis 
ECCINIT P ON DOUBLE BIT ERRORS CNORMAL ) 
CLEAR NOFSMODE, + NOSCOPE, FULLREL an 
CLR 
CLR 


RETURN 


ee ee -_-- - 


NOF SMODE 
NOSCOPE 


FULLREL 


SEQ 0205 


— * ——————— ee _— EE me - - - - _— 


L16 
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MT0030 SETUP FLUSH OUT DBE’S TEST SEQ 0206 


7613 022454 


7614 022454 
7615 osenes 


022 

022512 
022516 
022520 
022520 


022526 
0 


022534 
022536 
7622 022540 


7636 022624 
7637 022632 
7638 022636 
7639 022642 


004737 


103001 
000207 


012737 ' 


012737 
005037 
010346 
013703 
004737 


012603 
053737 


024234 


177777 


002102 
035716 


002552 


041024 


160000 
002456 
172252 
177652 


140000 
024462 
002440 


MT0031: SUBTST <<MTOO31 SETUP SOB-A-LONG TEST>> 
jFEESEEEEEESEEEEEEESSESS SESE SEEEEEEREEERER EEE REESE SERS EEE EE ETE REE E ERE R OREO ES 
; *SUBTEST MTO0031 SETUP SOB-A-LONG TEST 
{EEE SEEEEEEEERESESESESESSESEEE ERASE EERE ESSER EERE EEE ERESESEEE SER ERE ERROR EE ES 
CALL KAMITEST ;CHECK FOR KAMIKAZE MODE 
ON.ERROR THEN $RETURN ;IF NOT IN KAMIKAZE we yr 


RTS PC 
L204:isssae 
SET NOSCOPE | 
002440 MOV #-1,NOSCOPE 
002300 MOV #31,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 
CLR NOPAR ;SETUP PARITY ACTION 
MAP BANK ;MAP FIRST SO BLOCK MOVE WORKS 
MOV R3,-(SP) 
MOV BANK ,R3 
CALL § MAPPER 
-DSABL CRF 
MOV (SP)+,R3 
TESTAREA sENTER TEST MODE 
177776 BIS : TESTHODE , PSW ;GO TO SYSTEM TEST MODE 
BMOV  MTP031,FIRST,SOBLENGTH/2 
JSR RS,BLOCK3 
SOBLENGTH/2 
FIRST 
MTPO31 
DS CRF 
KERNEL ;ENTER KERNEL MODE 
MOV SOBK ,R2 
MOV R2,RO 
MOV #100776,R1 ;COMPLEMENT OF INSTRUCTION "SOB RO,DOT” 
MOV #F IRST+SOBLENGTH,RS 
002262 MOV #FIRST+2, SUPDOADD 
002522 MOV #LAST+2,LINK1 
TST NOSUPER 
BNE i$ 
172254 CMP SIPARS, SIPAR6 
BEQ 23 
BR 3$ 
177654 13: CMP UIPARS , UIPAR6 
BNE 3$ 
002522 23: MOV #140000, LINK1 
3$: CALL § SUPDO4 
CLR NOSCOPE 
RETURN 


— en mame i, amma eee SSS aE 
err em —— = 


M16 
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'MT0031 SETUP SOB-A-LONG TEST SEQ 0207 
7642 022644 MT0032: SUBTST <<MTOO32 SETUP WRITE RECOVERY TEST>> 
§SSSSSSS CESSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSESASSSSSSESESSSSESSESSESSESSESCEKE SEE ESSE ES 
; *SUBTEST MTO0032 SETUP WRITE RECOVERY TEST 
” (<<a } tao m 
7643 022644 004737 024234 CAL AMITEST ;CHECK FOR KAMIKAZE MODE 
7644 022650 “ERROR THEN $RETURN ;IF NOT IN KAMIKAZE MODE RETURN 
022650 103001 BCC L205 
955684 — 205 — 
L S338838 
7645 022654 SET NOSCOPE 
7646 ob5662 013737 $0002 902300 MOV #32,REALPAT SETUP PATTERN NUMBER FORT FouT e base 
P z YPE & DISPLAY 
7647 022670 005037 002076 CLR NOPAR ;SETUP PARITY ACTION 
7648 022674 MAP BANK ;MAP FIRST SO THAT THE BLOCK MOVE WORKS 
022674 0346 MOV R3,-(CSP) 
022676 013703 002102 MOV BANK ,R3 
022702 737 035716 CALL MAPPER 
.DSABL CRF 
022706 012603 MOV (SP)+,R3 
7649 022710 012700 010247 MOV #10247 ,RO ;0P CODE OF INSTRUCTION “MOV R2, -(PC)” 
7650 022714 012701 177667 MOV #177667 ,R1 ;OP CODE OF COMPLEMENT OF INSTRUCTION “UMP (RO)” 
7651 022720 012702 020000 MOV #SIZE/2,R2 ;USED FOR 1/2 BANK LOOP 
7652 022724 010237 002522 MOV R2,LINK1 
7653 022730 012703 060000 MOV #FIRST,R3 
7654 022734 012704 160000 MOV SLAST+2, R4 
7655 022740 005037 002524 CLR LINK2 
0227 005737 002456 TST NOSUPER 
7657 022750 100 BNE i$ 
7658 022752 023737 172252 172254 CMP SIPARS , SIPAR6 
7659 022760 001405 BEQ 2$ 
7660 022762 BR 3$ 
7661 022764 023737 177652 177654 1%: CMP UIPARS , UIPAR6 
2 022772 001011 BNE 3$ 
7663 022774 012704 140000 2s: MOV #140000 ,R4 
7664 023000 012702 014000 MOV #14000 ,R2 
7665 023004 010237 002522 MOV R2,LINK1 
rose 023010 012737 000001 002524 MOV #1,LINK2 
7668 023016 3$: TESTAREA sENTER TEST MONE 
023016 053737 002552 177776 Tae _ ;GO TO UYSTEM TEST MODE 
7669 ;sMOVE TEST TO MEMORY UNDER TEST 
7670 023024 010023 4$: MOV RO,CR3)+ 
7671 023026 010144 MOV R1,-(R4) 
rele 023030 077203 SOB R2,4$ 
7674 023032 022737 000005 004010 CMP #5 ,PROTYP 
7675 023040 001003 BNE 5$ 
7676 ;MOVE LAST PART OF TEST TO FASTCITY 
7677 023042 BMOV MTPO32 
023042 004537 040770 JSR R5,BLOCK1 
023046 027554 MTPO32 
.DSABL CRF 
La ds 023050 104417 S$: KERNEL ;ENTER KERNEL MODE 
7680 023052 012702 005141 MOV #5141,R2 :OP CODE OF INSTRUCTION “COM -(R1)” 
7681 023056 012700 023156 MOV #10$,RO : ADDRESS TO RETURN TO IN RO 


— —_—<—— - 


——_— ee ~ 
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_MTOO32 SETUP WRITE RECOVERY TEST 


SEQ 078 

7682 023062 012701 160000 MOV @LAST+2,R1 ;TOP OF BANK 

683 023066 012737 060000 002262 MOV #FIRST, 

7684 023074 005737 002524 TST LINK2 

7685 023100 001402 BEQ 6$ 

0231 012701 140000 MOV #140000 ,,R1 

7687 023106 737 024462 6$: CALL 

7688 023112 012703 020000 MOV #SIZE/2,R3 

7689 023116 2705 000110 MOV #110,R5 

7690 023122 012704 MOV SF IRST,R4 

7691 023126 737 002524 TST LINK2 

692 0231 1402 BEQ 7$ 
7693 023134 012703 014000 MOV #14000 ,R3 
7694 0231 012737 027554 002262 7$: MOV #MTPO32 , SUPDOADD 
7695 023146 004737 024462 CALL SUPDO04 
7696 023152 005037 002440 9$: CLR NOSCOPE 
7697 023156 000207 10$: RETURN ;THIS RETURN ACTS AS A NORMAL RETURN FROM MTO0O032 
7698 ;ALSO A RETURN FROM THE "CALL SUPDO4" ABOVE 


7699 


—— ew ew we er - 
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DIAG. 
MTOO32 SETUP WRITE RECOVERY TEST SEQ 0209 


7702 023160 MT0033: SUBTST <<MT0033 SETUP BRANCH GOBBLE TEST>> 
| SSS SESSSSSESSSSESSESSESSSS SSS SSS SSSSSSESRSSESCSESSSESSS SSS SSESSEKESSEESSEEESESREREE EERE ERED 
: ; #SUBTEST MT0033 SETUP BRANCH GOBBLE TEST 

FESS SSSSSSSSSSSESSSSSSSS SSS SES SESSES SSS SS SESSESESSESSESSSESESESSESSECESSCESEN SEES ERE REESE 
| 7703 023160 004737 024234 ALL § KAMITEST ;CHECK FOR KAMIKAZE MODE 

7704 023164 ON.ERROR THEN $RETURN ;IF NOT IN KAMIKAZE MODE RETURN 
| 023164 103001 BCC L206 

23166 000207 RTS PC 
023170 L206: iis33 
| 7705 023170 SET NOSCOPE 
023170 012737 177777 002440 MOV #-1,NOSCOPE 

7706 023176 012737 000033 002300 MOV #33,REALPAT ;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY 

7707 023204 005037 002076 CLR NOPAR ;SETUP PARITY ACTION 

7708 023210 MAP BANK :MAP FIRST SO THAT BLOCK MOVE WORKS 

023210 010346 MOV R3,-(SP) 
023212 013703 002102 MOV BANK ,R3 
023216 004737 035716 CAL MAPPER 
“DSABL CRF 
_ 023222 012603 MOV (SP)+,R3 
7710 023224 TESTAREA ;ENTER TEST MODE 
023224 053737 002552 177776 BIS TESTMODE PSH ;GO TO SYSTEM TEST MODE 
7711 023232 BMOV MTPO33,FIRST,GBLENGTH/2 
023232 004537 041024 JSR RS,BLOCK3 
3236 000037 GBLENGTH/2 
023240 060000 FIRST 
023242 027606 MTPO33 
.DSABL CRF 

7712 023244 104417 KERNEL ;ENTER KERNEL MODE 

7714 023246 012705 060076 MOV #F IRST+GBLENGTH,R5 

7715 023252 012737 060004 002262 MOV #FIRST+4, SUPDOADD 

7716 023260 012701 060002 MOV #FIRST+2.R1 

7717 023264 012702 060003 MOV 8FIRST+3,R2 

7718 023270 012737 160000 002522 MOV #LAST+2,LINK1 

7719 023276 005737 002456 TST NOSUPER 

7720 023302 00100 BNE 1$ 

7721 023304 023737 172252 172254 CMP SIPARS , SIPAR6 

7722 023312 001405 BEQ 2$ 

7723 023314 000407 BR 3 

7724 023 023737 177652 177654 1: CMP UIPARS , UIPAR6 

7725 023 001003 BNE 3$ 

1726 023326 012737 140000 002522 23: MOV #140000,LINK1 

7728 023334 004737 024462 3$;: CALL § SUPDO4 

7729 023340 005037 002440 CLR NOSCOPE 

7730 023344 000207 RETURN 

7732 023346 MT0034: SUBTST <<MT0034 SOFT ERROR - BACKGROUND PATTERN TEST>> 

} SESSESRSSEKSESSESSEAKESSEAKSESSSEKESKESSESRSEKKEEKARESSESEESESESESEE SASS REESE SCEESEEESCEeCE CESSES SEES 
; sSUBTEST MT0034 SOFT ERROR - BACKGROUND PATTERN TEST 
} 5 SESSSSEASSESSESEEESSEKSESESSEKCEKEKEAEKRSESEESEERERESEEESEESAEEEEEEEEKESCERECE ECE CSCS 
--7733 023346 012737 000034 002300 MOV #34,REALPAT 
| 7734 023354 012700 060000 MOV SFIRST,RO 
| 2735 023360 012701 040000 MOV #SIZE,R1 
023 013702 002620 MOV SOF TPA ,R2 


A L$ 





~— ————— SS SE < 


—_—— -=-——_ -~- 
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MT0034 SOFT ERROR - BACKGROUND PATTERN TEST SEQ 0210 | 
7737 023370 010103 MOV R1,R3 
7738 023372 013705 002104 MOV BANK INDEX ,R5 
7739 023376 010004 MOV . 3 
7740 023400 IF #B1T13 SET.IN CONFIG+2(R5) 
023400 032765 020000 002666 BIT #81713, CONFIG+2(R5) 
023406 001406 BEQ L207 
7741 ;BACKGROUND PATTERN IS VALID 
7742 023410 012737 027712 002262 MOV #MTP034+6,SUPDOADD 
7743 023416 004737 024446 CALL SUPDO3 ;READ IT 
7744 023422 ELSE 
023422 000410 BR L210 
023424 L207:ssssee 
7745 ;BACKGROUND PATTERN HAS BEEN INVALIDATED 
7746 023424 012737 027704 002262 MOV #MTPO34,SUPDOADD 
7747 023432 004737 024446 CALL SUPD 
7748 023436 052765 020000 002666 BIS #81T13,CONFIG+2(R5) ;VALIDATE IT 
7749 023444 END ;OF IF #BIT13 
023444 L210:3ssi53 
A »' 023444 000207 RETURN 
7752 023446 MTOO35: SUBTST <<MTOO35 SETUP WORST CASE NOISE PARITY TEST>> 
§ FEES EEE EEE SESE KEKE EEE EEK ERERERERERERERAEEKERSEREEESESESERES ESSER ERED 
; *SUBTEST MTOO35 SETUP WORST CASE NOISE PARITY TEST 
EEE EEE ESE ERE E EEE KEE EREEERESE EERE REKERESESREESEREREEE EEE EEE 
7753 023446 012737 000035 0023500 MOV #35,REALPAT ;SET UP TEST NUMBER FOR DISPLAY 
7754 023454 013703 002104 MOV BANKINDEX ,R3 
7755 023460 0163501 002664 MOV CONFIGCR3),R1 
7756 023464 000301 SWAB Ri 
7757 023466 042701 177760 BIC #tC17,R1 
7758 023472 006301 ASL Ri 
7759 023474 010137 002152 MOV R1,CSRNO 
7760 023500 023737 002152 002532 CMP CSRNO,PGMCSR 
7761 023506 001001 BNE 1$ 
7762 023510 000207 RETURN 
7763 023512 012702 052524 1$: MOV #52524 ,Re 
7764 023516 004737 032630 CALL BACKGND sWRITE BACKROUND OF ALMOST ALT. 1'S AND O'S 
7765 023522 012737 027730 002262 MOV #MTPO3S , SUPDOADD 
7766 023530 004737 024446 CALL SUPDO3 
7767 023534 IF QVFLAG IS TRUE THEN $RETURN 
023534 005737 002346 TST QVFLAG 
023540 001401 BEQ L211 
023542 000207 RTS PC 
023544 L241: 335533 
7768 023544 005102 COM R2 
7769 023546 004737 032630 CALL BACKGND ;WRITE COMPLEMENT PATTERN INTO MUT 
7770 023552 004737 024462 CALL SUPDO4 
7771 023556 000207 RETUR 


LE ee em em 


, 
x cL LL LLL LL ELLE AL LA -- 
TT TEE LLL 


- ——_ 
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MACRO 
MTOO35 SETUP WORST CASE NOISE PARITY TEST 


7773 023560 


7774 023560 
777 566 


7782 023620 


012737 
004737 
005037 


El 


—— eee ee 
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MT0036: SUBTST 


<<MT0036 


SETUP CORRECTION CODE TEST>> 


5 RREEEEEEESEE ESE EERERESESSSESE EEE EREREEEEEERES HEKKESHEEREERE TEER EET EEE EEE 
MTO0O036 SETUP CORRECTION CODE TEST 
{ERE EEEEEESEEER EEE SEES ESSE EERE REESE EERE EER ESE SEER ERE EES ESSER EEEEE EERE EERE EE EE 


; *SUBTEST 


#36 ,REALPAT 
GETCSR 
PASFLG 


3 D 
© 


;SET UP TEST NUMBER FOR hes ay AND DISPLAY 
;GET TABLE 


CSR INFO FROM CONFIG 
COUNTER 


ST DAT 
;GET FIRST ADDRESS IN BANK 
;MAP KIPARS AND 6 TO BANK 
sEXECUTE TEST 
;REMAP KERNAL SPACE 


SEQ 0211 


- = “ LLL LL LL LL LE, OI, me --— — ~ 


| See MSVi1-J MEMORY DIAG. 
MT0036 SETUP CORRECTION CODE TEST 


| 7784 023622 


A ¢ 023622 012737 
7786 023630 012701 

he di 023634 005000 
7788 023636 

7789 023642 004737 

7790 023646 

7791 023652 004737 

7792 023656 000207 


Fi 
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SEQ 0212 
MT0037: SUBTST <<MT0037 SETUP ECC DISABLE TEST>> 
{EERE EEEEEEEEEEEEEESEEEEESSESEEESESERERE SEE EEEEEEERESEEEEES EERE EERE RETR E EEE ES 
;*SUBTEST MTO0O037 SETUP ECC DISABLE TEST 
{EERE EEE SEE EEE EES ES EEERESEEERESE EERE EERE EERE EREEEEES SEES ESHER EEE EERE TEES 
000037 002300 MOV #37 ,REALPAT ;SETUP PATTERN AND NUMBER FOR TYPEQUT AND DISPLAY 
100000 MOV #100000 ,R1 ;SET UP TEST SS 
CLR RO ;CLEAR DATA TO BE WRITTEN 
037740 CALL MAPKERNAL ;MAP THIS TEST TO KERNEL SPACE 
032674 CALL GETCSR ;GET CSRINFO FROM CONFIG TABLE 
030316 CALL MTPO37 ;CHECK ECC DISABLE 
040026 CALL UNMAP ;REMAP KERNEL SPACE 


——_—— 
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Q 0213 


MT0037 SETUP ECC DISABLE TEST 


7794 023660 MT0041: SUBTST <<MT0041 SETUP ADDRESS TO CSR ON DOUBLE BIT ERROR TEST>> 
5 EKER EEE EERE EEEEEEEE EEE ERE EEEEE GEES EEEEEEEEEEEEEEEEE EEE EE OEEEOEEEER COREE OS | 
;*SUBTEST MT0041 SETUP ADDRESS TO CSR ON DOUBLE BIT ERROR TEST 
SERRE EEEE ERE EERE EEE EE EEE ERE EERE EE EEE EEEEEEEEEEEERESEEEESEEEEREOE EERE EERE REE E ES 
7795 023660 012737 000041 002300 MOV #41 ,REALPAT ;SETUP PATTERN AND NUMBER FOR TYPEOUT AND DISPLAY 
7796 023666 004737 032674 CALL GETCSR ;GET CSR NUMBER AND ADDRESS FROM CONFIGURATION TABLE 
7797 023672 LET SUPDOADD := #MTP041 ;SET UP TEST ADDRESS 
023672 012737 030370 002262 MOV @MTP041,SUPDOADD | 
7798 023700 LET R1 := #FIRST ;SET UP FIRST ADDRESS 
023700 012701 060000 MOV #FIRST,R1 
7799 023704 IF BANK EQ #177 ;ARE WE AT BANK 177? | 
023704 023727 002102 000177 CMP BANK, #177 
023712 001004 BNE L212 
7800 023714 LET PASCNT := #12. 
714 012737 000014 002570 MOV #12. ,PASCNT 
7801 023722 ELSE 
023722 000403 BR L213 
023724 L2l2:ssssis 
7802 023724 LET PASCNT := #16. 
724 012737 000020 002570 MOV #16. ,PASCNT 
7803 023732 END 
023732 L213:ssses3 
7804 023732 004737 024446 CALL SUPDO3 sEXECUTE ADDDRESS TO CSR TEST IN SUPVISIOR MODE 
7805 023736 000207 RETURN ; 
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SETUP ADDRESS TO CSR ON DOUBLE BIT ERROR 1 SEQ 0214 | 
7807 023740 MT0042: SUBTST <<MT0042 SETUP EXTENDED Q-BUS ADDRESS TO CSR TEST>> 
§ FESS SESESESEESSESSESSESSS SESS SESSSSSSES SSS SSSR S SSSR SSSESRSESSESSESSSSSSSES REESE REEE SS 
; SUBTEST MT0042 SETUP EXTENDED Q-BUS ADDRESS TO CSR TEST 
5 ESE EEESESESESES ESSE ESSERE SESS SESS SERS SEEKS SE SEES SSRSES ESSERE EREKE SEES EEE 
7808 023740 012737 000042 002300 MOV #42,REALPAT ;SETUP PATTERN AND NUMBER FOR TYPEOUT AND DISPLAY 
7809 023746 012701 100000 MOV #100000,R1 ;SET UP TEST ADDRESS 
7810 023752 004737 037740 CALL § MAPKERNAL ;MAP TO KERNEL SPACE 
7811 023756 004737 032674 CALL  GETCSR ;SET UP CSRINFO FROM CONFIGURATION TABLE 
7812 023762 004737 030542 CALL MTPO42 ;CHECK EXTENDED Q-BUS ADDRESS TO CSR 
7813 023766 004737 040026 CALL‘ UNMAP ;REMAP KERNEL SPACE 


7814 023772 000207 RETURN 


-—_ * ——— _ a —_ —_—_ ee ee 
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MT0042 SETUP EXTENDED Q-BUS ADDRESS TO CSR TEST 


MT0043: SUBTST <<MT0043 SETUP WRITE BYTE CLEARS SBE TEST>> 
§OEEEEEEEEEEEEEEEEEEEESES EEE ESE SE SESE SESESESESEREREREER ESE SR SEE REES Ee EE TERETE 


; *SUBTEST MTO0043 SETUP WRITE BYTE CLEARS SBE TEST 
Nae ee ee tii titi iri irri iiiiiiiiiiti dt, 


7817 023774 012737 000043 002300 V #43,REALPAT ;SET UP TEST NUMBER FOR TYPEOUT AND DISPLAY 
7818 024002 004737 037740 CALL MAPKERNAL ;MAP TO KERNEL SPACE 
LET R1 := #100000 ;SET UP TEST ADDRESS 
024006 012701 


100000 MO 
7820 024012 004737 031030 CALL MTP043 ;PERFORM WRITE BYTE TEST 
7821 024016 004737 040026 eal ;REMAP KERNEL SPACE 


7823 024024 MT0044: SUBTST <<MT0044 SETUP SHIFTING 1/0'S THROUGH THE CHECK BITS TEST>> 
| EREREEEEEEEEEESEREE EER ERE EEE EEEES EEE EERE ESSER EER EEEEEEEE EEE EEEESE EE EEE OEE E EEE ES | 
; *SUBTEST MT0044 SETUP SHIFTING 1/0'S THROUGH THE CHECK BITS TEST 
ERE AEREEEERARERE EERE EE EE ERE AREER REESE CEEERESERERESEEEEEEESRSEE SEES TEES ES 


SEQ 0215 
7816 023774 


V #100000,R1 


7824 024024 012737 000944 002300 MOV #44 ,REALPAT ;SET UP TEST NUMBER FOR TYPEOUT AND DISPLAY 
7825 024032 004737 032674 CALL GETCSR ;GET CSR NUMBER AND ADDRESS FROM CONFIGURATION TABLE 
7826 024036 LET SUPDOADD := #MTP044 ;SET UP TEST ADDRESS s31L 
024036 012737 031224 002262 MOV #MTP044, SUPDOADD 
7827 024044 LET R1 := #FIRST ;SET UP FIRST ADDRESS s3IL 
024044 012701 060000 MOV #FIRST,R1 
7828 024050 IF BANK EQ #177 ;ARE WE AT BANK 177? 
024050 023727 002102 000177 CMP BANK, #177 
24056 001004 BNE L214 
7829 024060 LET ENDADD := #120000 
24060 012737 120000 002562 MOV #120000, ENDADD 
7830 024066 ELSE 
024066 000403 BR L215 
024070 L214:sssic3 
7831 024070 LET ENDADD := #160000 
024070 012737 160000 002562 MOV #160000,ENDADD 
7832 024076 END 
024076 Leds: istics 
7833 024076 004737 024446 CALL SUPDO3 ;EXECUTE ADDDRESS TO CSR TEST IN SUPVISIOR MODE 
7834 024102 000207 RETURN 
7835 024104 MT0045: SUBTST <<MTO045 SETUP SYNDROMES TO CSR ON DOUBLE BIT ERROR>> 
5A EEE EEE ERE RAE RARER ERE RE REE EERE EE EEE EE EEE EEEEEE ERE EASE OEE 
; *SUBTEST MT0045 SETUP SYNDROMES TO CSR ON DOUBLE BIT ERROR 
ge RR a REE REE RAE E EEE ERE EEEER EEE EE EEEEEEEEEEEER EEO E EES 
7836 024104 012737 000045 002300 MOV #45 ,,REALPAT ;SET UP TEST NUMBER FOR TYPEOUT AND DISPLAY 
7837 024112 004737 037740 CALL MAPKERNAL ;MAP TO KERNEL SPACE 
7838 024116 LET Ri := #100000 ;SET UP TEST ADDRESS 
024116 012701 100000 MOV #100000,R1 
7839 024122 004737 031546 CALL MTPO45 ;PERFORM SYNDROMES TO CSR ON DOUBLE BIT ERROR 
7840 024126 004737 040026 CALL UNMAP ; REMAP KERNEL SPACE 
7841 024132 000207 RETURN : 
7842 024134 MT0046: SUBTST <<MT0046 SETUP CHECK SINGLE BIT ERRORS WITH ECC DISABLED TET>> 
5 REE EEE ERE REE EEE EEE EEE EEE EEEEEEESEEEEEEEEEEE ODER EEE ES | 
; *SUBTEST MT0046 SETUP CHECK SINGLE BIT ERRORS WITH ECC DISABLED TET | 
WTTTTITITI TTT TTL TTL TLL LLL Le 
7843 024134 012737 000046 002300 MOV #46 ,REALPAT ;SET UP TEST NUMBER FOR TYPEOUT AND DISPLAY 
7844 024142 004737 037740 CALL MAPKERNAL MAP TO KERNEL SPACE 
7845 024146 LET R1 := #100000 : SET UP TEST ADDRESS | 
024146 012701 100000 MOV #100000,Ri 
7846 024152 004737 031734 CALL MTP0O46 sPERFORM TRAPS DECTECTED ON SBE WITH ECC DISABLED TE 
7847 024156 004737 040026 CALL UNMAP ; REMAP KERNEL SPACE 
7848 024162 000207 RETURN 





os - eh eee renner ne nner en mm me —_—— « - a - —- = 


CVMJAAO MSV11-J MEMORY DIAG. MACRO VOS.01b Friday 15-Feb-85 16:10 Page 230-1 


~MT0046 SETUP CHECK SINGLE BIT ERRORS WITH ECC DISABLED TET SEQ 0216 
7849 024164 MT0047: SUBTST <<MT0047 SETUP NO CSR UPDATE ON SBE WITH EXSISTING DBE TEST>> 
5 EEEERER EER ERE ERESERERE REESE ERE EEE EERE EEE EERE SEES EEE EEEEEEEEEEEEEEEE EERO ERODES 
; *SUBTEST MT0047 SETUP NO CSR UPDATE ON SBE WITH EXSISTING DBE TEST 

ere x Ce ee OO OR Ed 

7850 024164 012737 000047 002300 MOV #47, REALPAT ;SET UP TEST NUMBER FOR TYPEOUT AND DISPLAY 
7851 024172 004737 037740 CALL MAPKERNAL ;MAP TO KERNEL SPACE 
7852 024176 LET R1 := #100000 ;SET UP TEST ADDRESS 

024176 012701 100000 MOV #100000,R1 
7853 024202 LET R2 := #120000 ; " ™ SECOND TEST ADDRESS 

024202 012702 120000 MOV #120000,R 
7854 024206 004737 032274 CALL MTP047 ;PERFORM NO UPDATE TO CSR ON SBE WITH OBE 


7855 024212 004737 040026 CALL _UNMAP ;REMAP KERNEL SPACE 
7856 024216 000207 RETURN 


——— 


| 
' 
i 
' 


7859 024220 


7860 024220 


0 
7866 024256 
os 
7867 024262 
02 
02 
7868 genes 


024266 
7869 024270 
024270 


-— —————— ewe 


005037 
012737 
000207 


000402 


000261 
000207 
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002300 
177777 


002006 
002350 
002352 


Ki41 
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~MT0047 SETUP NO CSR UPDATE ON SBE WITH EXSISTING TEST 


002344 


MT0999: SUBTST <<MT0999 


SETUP NULL TEST>> 


§ FESS EESEESESEESSESESSSE SESS SESS ES ESESSESSESSS ESAS ESSE ESSERE ESSERE S SEHR ESET EERE 


SETUP NULL TES’ 


FEES SESE SESESS EERE ES SESE SEEKS SEEKERS EES REES 
CL 


;*SUBTEST MT0999 
REALPAT 
SET NULLFLAG 
RETURN 


MOV #-1,NULLFLAG 


KAMITEST:SUBTST <<CHECK FOR KAMIKAZE MODE>> 
| ERREREEAEEEEEEEEEAEAEEEE AEE REA EERE ER EEE EERE REE EEEEEE EERE ERE RES ERE EE ERE REESE EES 


;*SUBTEST CHECK FOR KAMIKAZE MODE 
5 EEEEREEEEEEA EEE RE EEER ERE EERE EER ER EERE EEE EERE EERE EEE EE EEE EEE EEE EEEE EE SEE EEE EEE ES 


IF KAMIKAZE IS TRUE OR ACTFLAG IS TRUE OR APTFLAG IS TRUE 


$RETURN NOERROR 


ELSE 


$RETURN ERROR 


END ;OF IF KAMIKAZE 


TST KAMIKAZE 
BNE L216 
TST ACTFLAG 
BNE L216 
TST APTFLAG 


" BEQ L217 
: RUN THE TEST *esveeer#e 
CLC 
RTS PC 
i BR L220 
;DON'T RUN THE TEST —~—S 
SEC 
RTS PC 


SEQ 0217 


; 


CHE 


7872 024270 


7873 024270 
024270 
024272 
024276 


024302 
7874 024304 
7875 rs ot fp 


04 

7895 024406 
024406 

7896 024414 
7902 024434 
024434 


024440 
7903 024444 


010346 
013703 
004737 
012603 
004737 


013746 


014000 
052737 
012706 


012637 
012637 
000207 


———— — <—— «© oe 
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CK FOR KAMIKAZE MODE 


002102 
035716 


002160 
024364 
002622 
002176 


040000 
000749 
177640 


002622 
002624 
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002622 
002624 


177776 


SUPDO01: 


SUPDO2: 


TAG4$: 


SUBTST 


Li 


ee 


a eee 


<<SUBR EXECUTE PATTERN IN SUPERVISOR>> 
§EEEEEEREEEEEEEEEEERESE ESS EEEEEESERESER ARERR RERAERSEA EERE EEE TEER E EEE REO E ES 


; *SUBTEST 

’ 

| EREREEEEEEREE ERE EEE ESSESEEEES ESE SESEE ESSERE EEEEE ESSERE TREE ERE SAREE EE EEE E ES 
MAP BANK 


SUBR 


MOV BANK ,R3 

CALL MAPPER 

-DSABL CRF 

CALL GETDIS 

PUSH $LPERR, $LPADR 

MOV RO, SUPDRO 

MOV #SUPDR1 ,RO 

MOV R1,(CRO)+ 

MOV R2,CRO)+ 

MOV R4,CRO)+ 

MOV RS, CRO)+ 

MOV SP, CRO)+ 

MOV SUPDRO,RO 

MOV #TAG4$, $LPADR 
OV $LPADR, $LPERR 

MOV #SUPDR6+2,RO 
MOV -(RO),R 

MOV -CRO),R2 
SUPERVISOR 

BIS #BIT14,PSW 
_DSABL CRF 

MOV #SUPSTK ,SSP 
CACHOF 

CALL FASTCITY 
CACHON 

KERNEL 

SCOPE 

POP $LPADR, $LPERR 

RETURN 


EXECUTE PATTERN IN SUPERVISOR 


;MAP SUPERVISOR SPACE CTEST AREA) TO BANK 


MOV R3,-CSP) 


MOV (SP)+,R3 


MOV $LPERR, -(SP) 
MOV $LPADR, -(SP) 


;ENTER SUPERVISOR MODE 


;GO TO SUPERVISOR MODE 


; TURN CACHE OFF 
;CALL TO THE USER INSTRUCTION PAR'S 


; TURN CACHE 
;ENTER KERNEL MODE 


MOV (SP)+,$LPADR 
MOV (SP)+,$LPERR 


SEQ 0218 


—— a 


| 


‘SUeR Exe 


6 
7940 024636 
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053737 
005737 


002102 
035716 


002552 
002456 
000700 
000740 
155442 


002622 
002624 


002622 
002624 


177776 


SUPDO3: MAP BANK 
MOV BANK ,R3 
CALL MAPPER 
-DSABL CRF 
SUPDO4: CALL GETOIS 
PUSH $LPERR, $LPADR 
MOV RO, SUPDRO 
MOV #SUPDR1 , RO 
MOV CRO)+ 
MOV R2,(CRO)+ 
MOV R3,CRO)+ 
MOV R4,(RO)+ 
MOV R5S,CRO)+ 
MOV SP, CRO)+ 
MOV UPDRO ,RO 
MOV #TBG4$,$LPADR 
MOV $LPADR, $LPERR 
MOV #SUPDR6+2,RO 
MOV -CRO),S 
MOV -CRO),RS 
MOV -C(RO),R 
MOV -(RO), 1 
MOV CRO),RO 
TESTAREA 
Is TESTMODE ,PSW 
. DSABL 
TST NOSUPER 
BEQ 1 
MOV #USESTK , USP 
BR 2 
1$: OV #SUPSTK ,SSP 
2s: _CACHOFF 
CALL @SUPDOADD 
CACHON 
KERNEL 
OPE 
$LPADR, $LPERR 
RETURN 


Mi 
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Mts PATTERN IN SUPERVISOR 


com rr mee _—-—ohlhlU Cr ~- ——— 


SEQ 0219 


;MAP SUPERVISOR SPACE (TEST AREA) TO BANK 
MOV R SP) 


MOV (SP)+,R3 


MOV $LPADR . -( 


;ENTER ao ig MODE 


;GO TO SYSTEM TEST MODE 


; TURN CACHE OFF 


; TURN CACHE ON 
;ENTER KERNEL MODE 


MOV (SP)+,$LPADR 
MOV (SP)+,$LPERR 


=! —— eee 


—— er rs —— <- —- - — - — 
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MEMORY TEST PATTERN ROUTINES SEQ 0220 


7943 -SBTTL MEMORY TEST PATTERN ROUTINES 

7944 §EEEG6E6E65SSSEEEESESEEESESESESESESE SES SEEEREESESERESEREEE SHEESH ERTS ER EEE REE 
7945 ; PATTERN REGISTER CONVENTIONS 

7946 ; RO FIRST ADDRESS OF PATTERN (FIRST,LAST+2,ETC) 

7947 ; R1 NUMBER OF ADDRESSES IN PATTERN (SIZE) 

7948 ; R2 DATA FOR PATTERN CONES, S,ETC) 

7949 ; R3 COPY OF Ri CIF NECESSARY 

7950 ; R4 COPY OF RO CIF NECESSARY) 

795) ; RS COPY OF R2 CIF NECESSARY) 


7952 
7953 024640 


EEE EESESESESEAESSSESSESSSESSESSSSSESESSESSSSSESSESSSSKESSSSSESE SESS ESSERE SEES ESE KES 


MTPOOO: SUBTST <<MTPOOO BASIC DATA TEST>> 
5 EREEEEEEEESEEEEEEEEEESESESESESESERERESSSSEEEESERE SEES EEERESEESE SEER RE ER EEE E ESS 


; «SUBTEST MTPOOO BASIC DATA TEST 
FEES SSESSESESSSS SS SESS SSSRSSSEKSSEESSESESS ASSESSES SESE SKSESEESESESKS SESE SRE SES ESE SESE ESS 
71954 024640 010220 $: MOV “(RO)s 5Vi77 
7955 024642 077102 SOB R1,MTPOOO ;V177642 
7 024644 000240 NOP ;V177644 
Press 012401 2$: MOV (R4)+,R1 ;V177646 
7958 024650 020102 CHP sé RD ‘V177650 
7959 024652 001402 QQ 33 V177652 
7960 024654 104430 PERROZ v177654 
7961 024656 000240 ‘ V177656 
962 024660 077306 3$: SOB R328 ‘V177660 
7963 024662 000207 RETURN ;V177662 
71964 024664 MTPOO1: SUBTST <<MTPOOI ADDRESS TEST>> 
s EEE EKSSESEKSESEESSESESS SESE RERESERESEESEES EEE EKEKEEEEKEEEEEEEEES ESE EEEREKEEEES 
; «SUBTEST MTPOO1 ADDRESS TEST 
KEKKESKEKSKSSARAASEASEESKSESSKSCACEAAKEKEKSEKEKKKSEKSRKKKEKEKRSEAKSEKKEKEKEKKEREKEEREERESESECEESESE) & 
7965 024664 010220 $$; V R2,(RO)s ;V177640 
7966 024666 062702 000002 ADD -#2..R2 177642 
796 4672 077104 SOB R1i,3$ ;V177646 
7968 024674 000240 NOP V177650 
7969 024676 012400 1$: MOV _—(R4)+, RO v177652 
970 024700 020005 CMP «RO. RS V177654 
7971 024702 001401 EQ Ss’ ‘V177656 
7972 024704 104427 PERROL 177660 
7973 0247 2705 000002 2: ADD #2,R5 V177662 
7974 024712 077307 SOB séRRS.. 13 V177666 
7975 024714 000207 RETURN V177672 
7976 024716 MTPOO2: SUBTST <<MTPOO2 COMPLEMENT ADDRESS TEST (WRITE DOWN, READ UP)>> 
pS SESERSEESES ESSERE SSS SESE RESEAEEAKSESESSESEREEEEEE ESSE EEKES SESE EES 
 ¢SUBTEST MTPOO2 COMPLEMENT ADDRESS TEST (WRITE DOWN, READ UP) 
SKESKSESECSREKSESAESKASSECSEKSKSSESKESCSESESSASESAKESASESEKEKEKESKEKESESSEEEEKECEE EEE EEEES 
7977 024716 010540 $: MOV. RS,-CRO) 'V177640 
7978 0247 705 000002 ADD «#25 v177642 
2979 024724 077104 SOB séRk~L3$ V177646 
7980 024726 0 NOP V177650 
7 Ub 012401 MOV (R4)+,R1 ;V177656 
7983 0247 102 CMP séRR1.R2 ‘V177660 
7984 024740 001401 BEQSté2’S V177662 
7985 742 104430 PERRO? ;V177664 
7986 024744 077307 2$: SoB R3,1$ ;V177666 
7987 024746 RETURN 177670 


8006 
8007 024776 
8008 025000 
8009 025004 
8010 025006 
6011 
8012 
8013 025010 


8014 
8015 025010 


AL LLL A 


AAO MSV11-J MEMORY DIAG. 
1P002 COMPLEMENT ADDRESS TEST (WRITE DOWN, READ 


000100 


025050 


000004 


000100 
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MTPAOS: SUBTST <<MTPAOS 3 XOR 9 WORST CASE NOISE TEST (WRITE)>> 
TTT TTT TTT TLE TELL E LL TL TLL T LTT T TTT T TTT T tT 
; sSUBTEST MTPAOS 3 XOR 9 WORST CASE NOISE TEST CWRITE) 
PITTI TTI TTL LTTE iit it 
;Ri = ADDRESS 
;R2 = SMALL LOOP CONSTANT 
;R3 = NUM OF oak TO TEST CLARGE LOOP) 


;R4& = GOOD DAT 
:RS = MEDIUM LOOP CONSTANT 
-ENABL LSB 
1$: MOV R4,(R1)+ ;V177640 
MOV R4,(R1)- ;V177642 
S0B R2,1$ ;V177644 
COM R4 ;V177646 
BIS (PC)+,R4 ;V177650 
WARN2: 401 ;V177652 WARNING LOCATION IS MODIFIED BEFORE LOADING 
MOV #4 ,R2 3V177654 
SOB RS,1$ V177660 
COM R4 ;V177662 
BIS (PC)+,R4 3V177664 
WARNS: 401 ;V177666 WARNING LOCATION IS MODIFIED BEFORE LOADING 
MOV #64.,R5 3V177670 
SOB R3,1$ 3V177674 
RETURN :V177676 
DSABL LSB 
MTPBO3: SUBTST <<MTPBO3 3 XOR 9 WORST CASE NOISE TEST CREAD)>> 


fs SSSSSSSSSSSSSSSSESSSSS SESS ESSE SESS SSSA SESE SESSA SSESSES SESS S SSS SESS SSE LESS 


;*SUBTEST MTPBO3 3 XOR 9 WORST CASE NOISE TEST (READ) 
Gipemtecs «Yaak taiateak ater eae eenenemnannnneele 
1$: JMP aeMTPCO3 ;V177640 GO TO V172360 
SOB R2,1$ ;V177644 
COM R4 ;V177646 
BIS (PC )+,R4 ;V177650 
WARN4: 401 3V177652 WARNING LOCATION IS MODIFIED BEFORE LOADING 
MOV #4 ,R2 ;V177654 
SOB R5,1$ ;V177660 
COM R4 ;V177662 
BIS (PC)+,R4 ;V177664 
WARNS: 401 ;V177666 WARNING LOCATION IS MODIFIED BEFORE LOADING 
MOV #64. ,R5 ;V177670 
R3,1$ ;V177674 
;V177676 


RETURN 
-DSABL LSB 


—_--~.— ee ee - 
a 
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— 
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8031 025050 MTPCO3: SUBTST <<MTPCO3 TEST DATA SUBPROGRAM>> 
{FOESOEEEEEEEEEEEESESEESEESSEEEEEEE SEES SEES EEE EER TEER EERE EEE EEE EERE SERRE ERROR ES 
; *SUBTEST MTPCOS TEST DATA SUBPROGRAM 
eo. wa “een  amamnmmemenpnnnanenennneteen 
8032 025050 020421 CMP 4,(R1)+ ;V172360 
8033 025052 001401 BEQ ;V172362 
8034 025054 104431 PERROS ;V172364 
8035 025056 005141 1$: COM -(R1) ;V172366 
025060 005111 COM (Ri) ;V172370 
8037 025062 000137 025066 a#MTPDOS ;V172372 GO TO V172260 
8039 025066 MTPDO3: SUBTST <<MTPDO3 TEST DATA SUBSUBPROGRAM> > 
SERRE EERES EERE EEE RES ERES SEES SERRE REESE ERS E REE E SEER SEES SEETHER EEE ERE RES 
;*SUBTEST MTPDO3 TEST DATA SUBSUBPROGRAM 
{Ree EEEEAEEEEREE ESSE EEEES ERE SESE ESSERE EEEEREE RES EE EREEE EEE EEE EEE EERE EERE OEE 
0 020421 4,(R1)+ ;V172260 
8041 025070 1401 BEQ 1$ ;V172262 
8042 025072 104431 PERRO3 ;V172264 
8043 025074 005127 1$: COM (PC)+ ;V172266 
025076 000000 0 ;V172270 
8045 025100 001363 BNE MTPCO3 ;V172272 GO T0 V172360 
8046 025102 000137 025014 JMP a#MTPBO3+4 ;V172274 GO TO V177644 


Ne 


SEQ 0222 


A AO LS OO 


———— ~- 
ile 


—__— ae ——— ee 


De 


CVMJAAO MSV11-J MEMORY DIAG. MACRO VOS.01b Friday 15-Feb-85 16:10 Page 244 
SUBPROGRAM 


— TEST DATA SUB SEQ 0223 


—_—— ———— — 


8049 025106 MTPAO4: SUBTST <<MTPAO4 ROTATING ZEROS TEST>> 
{EEREEEEEESEEEEEESEEEESES ESSE SEER REESE SEES EEE EEE EER EEE EE ERE REE EERE ERE R ERE EES 
; *SUBTEST MTPAO4 ROTATING ZEROS TEST 
{ERESEESEREEEESEEESS EES EEESESESEEEERER EES ERE ERSEEESE EEE EER ERE EERE ESE REE EEE ES 
8050 025106 012705 000010 $: MOV »RS ;V177640 
8051 025112 010504 MOV RS,R4 ;V177644 
6052 025114 00024 CLC ;V177646 
8053 025116 000137 025142 JMP a#MTPBO4 ;V177650 
8054 025122 016004 177776 MOV -2(RO),R4 ;V177654 
8055 025126 103402 BCS 2$ ;V177660 
8056 025130 020204 CMP R2,R4 ;V177662 
8057 025132 001401 BEQ 3$ ;V177664 
025134 10443 2$: PERRO4 ;V177666 
8059 025136 077115 3$: SOB R1i,1i$ ;V177670 
coat 025140 20 RETURN ;V177672 
8062 025142 MTPBO4: SUBTST <<MTPBO4 SUBR ROTATING BIT>> 
jEREEEREEEE EERE EERE EEE RE EER EREEEEEE EERE EERE EE EEREEEREREEEEEAERERERE EERE REEDS BOO 
; *SUBTEST MTPBO4 SUBR ROTATING BIT 
SERRE REEREER EERE EERE EERE REE RARER EERER EERE EE EEEEEEE ERE EEE EE EERE EERE EEE EEE EE EEE 
8063 025142 106110 1$: ROLB (RO) ;V17236 
8064 025144 077502 SOB R5,1$ ;V172362 
8065 025146 106120 ROLB CRO)+ ;V172364 
8066 025150 106110 2$: ROLB CRO) ;V172366 
8067 025152 077402 SOB R4,2$ :V172370 
8068 025154 106120 ROLB CRO)+ ;V172372 
4 44 025156 000137 025122 JMP D#MTPA04 +14 ;V172374 
8071 025162 MTPOOS: SUBTST <<MTPOOS ROTATION ONES TEST>> 
SERRE EEE E EERE REAR EERE EERE REESE ERER EERE EERE EER EEE SEES SEES EEEREEEEE EEE EEE EEE 
;*SUBTEST MTPOOS ROTATION ONES TEST 
SHEER EEEREEEEE EEE RER EERE EEE EE AREER EERE EE EERE REE EERE EERE EE EEE EERE EEE EE EEE EEE EE 
8072 025162 012705 000010 1$: MOV #8.,R5 ;V177640 
8073 025166 010504 MOV RS ,R4 ;V177644 
8074 025170 000261 SEC ;V177646 
8075 025172 000137 025142 JMP a#MTPBO4 ;V177650 
8076 025176 016004 177776 MOV -2(RO),R4 ;V1776 
8077 025202 103002 BCC 2$ ;V177660 IF THIS HAPPENS THE GOOD & BAD MATCH 
8078 025204 020204 CMP R2,R4 :V177662 
79 0252 001401 BEQ 3$ ;V177664 
8080 025210 104432 2$: PERRO4 ;V177666 
8081 025212 077115 3$: SOB R1,1$ ;V177670 
8082 025214 20 RETURN ;V177672 


a eee ee 


LO 


8085 025216 


8086 
8087 
8088 025216 
8089 025224 
8090 30 


8099 025 
8100 025272 
8101 
8102 025274 
8103 025300 
8104 025302 
025302 
025306 
8105 025312 
8107 025314 


025344 
8112 025350 
025354 


ota. 025372 
8121 025374 
025400 


8124 025412 
8125 025414 


012737 
005037 


006137 
006137 


000746 
000207 
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000001 
002244 
002242 
002244 
000000 


002242 


000002 
002244 


002244 


002242 
002244 


177776 
177777 


000000 
002242 


000002 
002244 


002244 


002242 
002244 


E2 
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002242 


000000 
000002 


002242 
002244 
000 


000 
000002 


il 


MTPOO6: SUBTST 
jEEEREEEREE ESSERE EEA EER REESE SERRE EEE ESSERE EERE REESE EERE EEE E EEE EERE EEE HERR E REED 


<<MTPOO06 


INITIAL DATA TEST>> 


;*SUBTEST MTPOO6 INITIAL DATA TEST 
Pertti tt ttt ttt ttt ttt ttt ttt ttt ttt ttt itt ttt ttt ttt ttt ttt ttt ttt tt TTT ttt TTT t iit 
; THIS TEST CHECKS THE DI/DO LINES BY 
; SHIFTING A 1 THROUGH THE WORD. 
MOV #1, DATBUF ;SET THE FIRST TEST BIT 
CLR ATBUF +2 ;CLEAR 2ND WORD 
i$: MOV DATBUF , aCR1) ; WRITE TEST WORD 1 
MOV DATBUF+2,@2(R1) ;AND TEST WORD 2 
MOV aC(Ri),R2 
CMP DATBUF ,R2 ;NOW READ THEM 
BEQ 2$ ;BR IF FIRST 16 OK 
PERRO? ;ERROR TRAP 
2s: MOV a2(R1),R2 
CMP DATBUF +2,R2 :NOW READ SECOND WORD 
BEQ 3$ F OK 
PERR1O TERROR TRAP 
3$: TST DATBUF +2 ;HAS LAST BIT BEEN TESTED ? 
BMI 4$ ;MINUS MEANS BIT 31 
DLEFT #DATBUF ;NO, SHIFT TEST BIT LEFT 
ROL DATBUF 
ROL DATBUF +2 
DSABL F 
1$ ;GO WRITE NEW TEST DATA 
;NOW GOING TO SHIFT A O IN DATA DIRECTION 
4$: MOV #177776, DATBUF PUT AO IN BIT O 
MOV -1, DATB ;AND 1'S IN at OTHERS 
5$: MOV DATBUF , aCR1) ;WRITE THE DAT 
MOV DATBUF +2,92(R1) 32 WORDS ORTH 
MOV a(R1),R2 
CMP DATBUF ,R2 ;NOW READ FIRST WORD 
BEQ ;BR IF OK 
PERRO7 
6$: MOV a2(R1),R2 
CMP DATBUF +2,R2 ;NOW, READ SECOND WORD 
BEQ 7$ ;BR IF OK 
PERR10 
7$: TST DATBUF +2 ;TESTED BIT 31 YET? 
BPL 8$ ;BR IF YES, WE'RE DONE 
DLEFT DATBUF 
ROL DATBUF 
ROL DATBUF +2 
.DSABL CRF 
BR 5$ ;KEEP GOING 
8$: RETURN 


SEQ 0224 


———ee ee == 
ee ET 


8128 025416 


254 

8141 025434 
8142 025436 
8143 

8144 025440 
8145 025442 
8146 025444 
8147 025446 
8148 025450 
8149 025452 
8150 025454 
6151 

8152 025456 
8153 025460 
8154 025462 
8155 025464 
8156 025466 
8157 

8158 025470 
8159 025474 
8160 025476 
8161 025502 
8162 025504 
8163 025506 
8164 025512 
8165 025514 


-_ a Me —e- i, i a te a 


CVMJAAO MSV11-J MEMORY DIAG. 
MTPOO6 INITIAL DATA TEST 


100000 
010000 


160000 


——— -_— | —_—— me —-* - - — _—-—— = o 


Fe 
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MTPOO7: SUBTST 
{RREEEESEEEREEE EERE REESE ESSE SEE SES SEE EER EEE CREE EEEEEE REESE EERE SEER ERECT EEE T REE ES 


; *SUBTEST 
Pitti titi ttitt ttt ttt ttt itt tt ttt ttt titi ttt t i titi tii ittititititiititi tt ttt titi tt 


1$: 


2s: 


3$: 


4$: 


5$: 


<<MTPO007 ADDRESS BIT TEST>> 


MTPOO7 ADDRESS BIT TEST 


; THIS TEST CHECKS TO SEE THAT EACH ADDRESS 
; BIT IN EACH 16K BANK CAN BE ASSERTED UNIQUELY. 
; IT CHECKS FOR ADDRESS BITS THAT MAY BE STUCK 
i HIGH, STUCK LOW OR STUCK TOGETHER. 

MOVB C(R1),RO 

TSTB RO ;READ AND COMPARE FOR ZEROS 

BEQ 1$ ;BR IF OK 

PERR11 

COMB (R1) ;COMPLEMENT THE BYTE 

MOVB (R1),RO 

TSTB RO ;READ FOR NON ZEROS 

NE 2$ ;BR IF OK 

PERR12 

BIC R2,R1 ;MASK OFF THE ASSERTED BIT 

ASL Re ;SHIFT R2 FOR NEXT BIT 

BIS R2,R1 ;SET THE NEW BIT INTO Ri 

MOV C(R1),RO 

TST RO ;READ THE NEW ADDRESS 

BEQ 3$ ;READ FOR ZEROS 

PERR13 

COM (R1) ;COMPL THE WORD 

MOV (R1),RO 

TST RO ;READ IT AGAIN 

BNE 4$ 

PERR14 

CMP #100000 ,R2 

BEQ $ 

CMP #10000 ,R2 ;CHECK FOR MSB IN 4K BANK 

oy 44 ;NOT LAST BIT, BRANCH 

- #160000 ,R1 

RETURN 


8169 
8170 
8171 025516 


1 
8181 925552 
8182 025554 
8183 
8184 025556 
8185 025562 
8186 025564 


1 
8191 025574 
8192 025600 
8193 025602 
8194 
8195 025604 
606 


8200 20 
8201 025622 
8202 
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MTPOO7 ADDRESS BIT TEST 


8168 025516 


000004 
177777 
177777 


000000 


177777 


177777 


mee er ee - - —_ — 


Ge 
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MTPO10: SUBTST 
5 EREEEEEEEEEEESEEESEEEES SEES E ESSER EERE RESERE SESE EERE TEER E EERE ERE EKER EERE EES 


; *SUBTEST 
’ 
eee kick *«  % *  ‘emmmgeeepemeneneene 


000002 


1$: 
2s: 


3$: 
4$: 


5$: 
6$: 


;TEST 3 TF_S TEST CHECKS FOR PROPER 
BYTE ADDRESSING WITH ECC DISABLED 
MOV R4,Re ;R4 HAS LOWEST ADDRESS 
MOV R4,R3 ;PUT IT IN R3 ALSO 
ADD #4 ,R2 ;POINT R2 TO LAST BYTE +1 
MOV #-1,(R3) ;WRITE ALL ONES IN 
MOV #-1,2(R3) ; THE by BYTES 
CLRB (R3) ;CLEAR A BYTE 
MOV R4,R1 ; INITIALIZE R1 FOR EACH PASS 
CMP R2,R1 ;IF EQUAL, JUST READ LAST BYTE 
BEQ 6$ ;BR IF EQUAL 
CMP R3,R1 ;IS THIS THE BYTE OF ZEROS 
BNE > ;BR IF NOT 
MOVB CR1),RO 
;WARNING IF YOU OPTOMIZE CHANGE THE PCBUMP FOR THIS ERROR INCASE OF TRAPS 

CMP #0,RO ;IT IS, COMPARE FOR ZEROS 
BEQ 3$ 
PERR11 
INC Ri ;NEXT BYTE 
BR $ ;RETURN 
MOVB C(R1),RO 
CMPB #-1,RO0 ;ITS NOT THE BYTE OF O'S, READ 1'S 
BEQ S$ 
PERRi2 
i Ri sMOVE TO NEXT BYTE 
MOVB #-1,(R3) sRESTORE 1'S TO BYTE JUST TESTED 
INC ;INC TO NEXT BYTE 
CMP R3,R2 ;WAS THAT JUST THE LAST ONE? 
BNE ;BR IF NO 
RETURN 


<<MTPO10 BYTE ADDRESSING TEST>> 


MTPO10 BYTE ADDRESSING TEST 


ee ee ee eee 


SEQ 0226 


oe ———_— — 
_ ————-- 


ow—_——— _— ee ee as 


He 
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MTPO10 BYTE ADDRESSING TEST SEQ 0227 


8205 025624 MTPO14: SUBTST <<MTPO14 BASIC DOUBLE BIT ERROR TEST>> 
§ FS SSSSEESSSSSSSSS SESS SSSSSE CESSES SSESSSESSSESSESSESSSSSSSSSESSESSESSSSSSSS ERE SESS SERS EES 
; *SUBTEST MTPO14 BASIC DOUBLE BIT ERROR TEST 
8206 §FSSSESSSSSKEESSSSSSESSESSSE SES SESE SSS SSS SSSESESSSSESE SESS SESSES SESE RESSSE SERS CHALE RECESSES 
8207 ; THIS TEST CHECKS THAT A DOUBLE ERROR WILL BE DETECTED 
8208 ; A BYTE WRITE WITH A DOUBLE ERROR ON A MSV11-P 
htt ; WILL BE ABOTRED. 
8211 025624 104424 CACHOFF ;TURN OFF CACHE 
8212 025626 LET PARCNT := #0 ;CLEAR PARCNT 
025626 005037 002072 CLR PARCNT 
8213 025632 LET NOPAR := #1 ;SET PARITY ACTION 
012737 000001 002076 MOV #1,NOPAR 
8214 025640 LET ADDRESS := #FIRST ;SET ADDRESS FOR ERROR REPORT 
025640 012737 060000 002034 V #FIRST,ADDRESS 
8215 025646 104513 CBREG ;ENABLE CHECK/SYNDROME BIT REGISTER 
8216 025650 LET CSR := #3145 ;DBE CHECK BITS FOR CSR 
025650 012737 003145 002150 MOV #3145,CSR 
8217 025656 104425 LOADCSR ; WRITE one CHECK BITS TO CSR 
8218 025660 LET GOOD := #103145 :GOOD DAT 
025660 012737 103145 002044 MOV #103145,G00D 
8219 025666 LET (R1) := #0 ;WRITE ZEROS AND DBL ERROR CHK BITS A=0 
025666 005011 LR (R11) 
8220 025670 005711 TST (Ri) ;READ A=0 TO GET DOUBLE BIT ERROR 
8221 025672 IF PARCNT NE #1 ;WAS BUSPBL ASSERTED???? 
025672 023727 002072 000001 CMP PARCNT, #1 
025700 001401 BEQ L221 
8222 025702 104055 ERROR +55 ;ERROR CALL ;;MISSED EXPECTED TRAP 
8223 025704 ND ; 
025704 Le2lississs 
8224 025704 104426 READCSR ;READ CSR FOR CORRECT CHECK BITS AND DBE INDICATOR 
8225 025706 042737 020000 002150 BIC #B1T13,CSR ;CLEAR INHIBIT MODE POINTER FROM DATA IF IT EXSISTS 
8226 025714 IF CSR NE GOOD THE ;CHECK IF DOUBLE ERROR BIT IS SET 
025714 023737 002150 002044 CMP CSR,GOOD 
025722 001407 BEQ L222 
8227 025724 SET HEADER ; 
025724 012737 177777 002612 MOV #-1,HEADER 
8228 025732 LET BAD := CSR ;BAD DATA 
025732 013737 002150 002052 MOV CSR,BAD 
8229 025740 104065 ERROR +65 ; 
8230 025742 ND ; 
025742 L222:ssssss 
8231 yt Ly | 104473 ECCLINIT ;ENABLE BUSPBL 
8232 025744 005037 002266 CLR PASSNO ;CLEAR LOOP COUNTER 
8233 058750 REPEAT : 
0257 B3l:ssssss 
8234 025750 104473 ECCLINIT ;ENABLE BUSPBL 
€235 025752 005237 002266 INC a ne ; INCREMENT LOOP COUNTER 
0257 005037 002072 CLR PARCNT ;CLEAR PARITY ACTION COUNTER 
8237 025762 LET (R1) :B= #377 ;WRITE BYTE SHOULD BE ABORTED 
0257 112711 000377 MOVB #377,(R1) 
8238 025766 105711 TSTB (R1) ;READ Ri TO SEE IF IT IS STILL O 
8239 025770 IF PARCNT NE #1 ;WAS WRITE ABORTED??? 
025770 023727 002072 000001 CMP PARCNT, #1 
025776 001411 BEQ L223 


8240 026000 





SET HEADER 


-_ —— 


CVMJAAO MSVil-J MEMORY DIAG. 
MTPO14 BASIC DOUBLE BIT ERROR 


012737 177777 
005037 002044 
012737 000377 
104056 


026000 
8241 026006 
8242 026012 
026012 
8243 026020 
6244 026022 


8245 026022 
8246 026024 
026024 


005201 


023727 
001346 


002266 

026034 
8247 026034 
8248 026036 
8249 026040 005037 
8250 026044 
68251 026046 
8252 


002072 


le 
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002612 


002052 


000002 


MOV 6-1 » HEADER 


LET GOOD := #0 ;GO0D DATA 
« CLR GOOD 
LET BAD := #377 ;BAD DATA 
MOV #377,BAD 
ERROR +56 ; 
END ; 
Lees:ssssss 
INC Ri ;AND REPEAT ON HIGH BYTE 
UNTIL PASSNO EQ #2 $ 
CMP PASSNO, #2 
BNE B31 
ESl:ssssss 
CLR -(R1) ;CLEAR LUT 
CLRiICSR ;CLEAR CSR 
CLR PARCNT ;CLEAR PARITY TRAP COUNTER 
CACHON ; TURN ON CACHE 
RETURN 5 


——-— eee -_~ 


SEQ 0228 


ee eee - - + —_—-- 
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‘MTPO14 BASIC DOUBLE BIT ERROR TEST 


| 8255 026050 MTPO17: SUBTST <<MTPO17 HOLDING 1'S & 0'S TEST>> 
FF SSESESSESSSSSESSESSESSSSSESSSSS SS SS SSSSSSSSSESSSSSSSSSESSSSSSSSHKSESSESSSSES SSE SKE KEES ESE 
; «SUBTEST MTPO17 HOLDING 1’S & 0’S TEST 
ESSE SESSESSSSESSSSS SESS SS SSS SSSSSSSSSSES SSE SSSSESSSSSSSESSSSSS SESS SESE SESS eee eee eES 
8256 ;#(1) THIS TEST CHECKS THE MEMORY FOR THE CAPABILITY 
8257 ;* OF HOLDING 1’S AND 0'S BY WRITING A BACKGROUNC 
8258 ;* OF 000377 AND READING IT 
9 ;#(2) MEMORY IS WRITTEN USING A BYTE AT A TIME 
8260 :#(3) STEPS 1 & 2 ARE REPEATED WITH A SWAPPED BACKGROUND PATTERN 
261 ;NOTE: THIS TEST WRITES BYTES & READS WORDS 
8262 026050 012701 060000 MOV #FIRST,R1 
3 02 010104 MOV R1,R4 
8264 026056 012705 16 MOV #LAST+2,R5 
8265 026062 012700 000377 MOV #377,RO ;GET THE PATTERN INTO RO 
8266 026066 010003 MOV RO,R3 
8267 026070 303 SWABS séRRZ 
8268 026072 110021 1$: MOVE RO,(R1)+ ;WRITE A BYTE 
8269 026074 110321 MOVB R3,(R1)+ ;WRITE THE MEMORY WITH THE BYTE STORED IN BAKPAT+1 
8270 026076 020105 CMP R1,R5 ;COMPARE TEST LOC TO TOP «+ 2 
8273 026100 103774 BLO 1$ ;BRANCH IF LOWER 
8273 026102 014102 2$: MOV -(R1),R2 
8274 026104 020002 CMP RO,R2 ;TEST THE MEMORY TO SEE IF IT CONTAINS 
8275 ;THE WORD STORED IN BAKPAT 
8276 026106 001401 BEQ 3$ 
827? 026110 104446 PERR22 
8279 026112 020104 3$: CMP R1,R4 ;KEEP ON TESTII.; THE MEMORY UNTIL 
8280 026114 101372 BHI ;R1 EQUALS THE LOWEST ADDRESS 
8281 026116 000303 SWAB séRB sCHANGE THE DASA PATTERN 
8282 026120 000300 SWAB =e. RO 
8283 026122 001763 BEQ 1$ ;IF THE DATA PATTERN, DOES NOT HAVE LOW 
8284 ; BYTE =O THEN FALL 
8285 026124 000207 RETURN 


SEQ 0229 


- —_ ——<——— — a _———_—— ae 


Ke 
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MTPO17 HOLDING 1‘S & 0’S TEST 
8289 026126 MTPO20: SUBTST <<MTPO20 SYNDROMES TO CSR ON SINGLE BIT ERROR TEST>> 
5 EREEEEEEEEEEEEERERERERERERESEE SEES EEEREREEREREE EERE EE ESAS SEER EEE TERRE EERE ES 


; *SUBTEST MTPO20 SYNDROMES TO CSR ON SINGLE BIT ERROR TEST 


SEQ 0230 


EEE ESESEESSESSE SERS SEEKS SRSESSERSE SASSER CESSES ELSES SERS SRST ESSERE REESE EEESS 


8290 $ 
8291 ; THIS TEST CHECKS TO SEE IF THE SINGLE BIT ERRORS CAUSE THE SBE 
8292 ; BIT IN THE CSR TO BE SET AND CORRECT SYNDROME BITS ARE GENERATED FOR 
ores ALL 16 DATA BITS. 
8295 026126 104424 CACHOFF ; TURN OFF CACHE 
296 026 005000 CLR RO ;CLEAR le 
8297 026132 105037 002264 CLRB PASFLG ;CLEAR PASF 
8298 0261 104513 CBREG ; ENABLE CHECK/ SYNDROME BIT REGISTER 
8299 eretas REPEAT ; 832: 
8300 026140 LET PASFLG :B= PASFLG + #1 ; INCREMENT LOOP COUNTER 
026140 105237 002264 INCB PASFLG 
8301 026144 LET RO := #-] ; INDEX TO SINGLE BIT ERROR TABLE 
026144 012704 177777 MOV #-1, 
8302 026150 LET BITNO := #0 ;CLEAR INNER LOOP COUNTER 
026150 005037 002324 CLR BITNO 
8303 026154 IFB PASFLG EQ #1 ;SELECT DATA TO BE CORRECTED Al wr 
026154 123727 002264 000001 CMPB PASFLG, #1 
026162 001003 BNE Lb2s 
8304 026164 LET RS := #1 ;DATA=.;BIT TO BE CORRECTED IS A ONE 
026164 012705 000001 MOV #1,R5 
8305 026170 ELSE ; 
026170 000402 BR L226 
026172 Lee5 i iicas 
8306 026172 LET RS := #177776 ;DATA=177776;BIT TO BE CORRECTED IS A ZERO 
026172 012705 177776 MOV #177776.R5 
8307 026176 END : 
26176 L226: siic33 
8308 026176 REPEAT ; 
026176 BS3:ssssc3 
8309 026176 005237 002324 INC BITNO ; INCREMENT BIT POINTER 
8310 026202 LET R4 := RO «+ #1 ;POINT TO NEXT SET OF CHECK BITS 
026202 005204 INC R4 
8311 026204 LET R2 :B= PTABLECR4) ;GET NEXT SET OF CHECK BITS 
026204 116402 030276 MOVB PTABLEC(R4),R2 
8312 026210 072227 000005 ASH #5,R2 ;SHIFT TO LINE UP IN CSR 
8313 026214 052702 000004 BIS #BIT2,R2 ;ENABLE DIAG MODE 
8314 026220 LET CSR := R2 ;GET CHECK BITS TO BE WRITTEN 
026220 010237 002150 MOV R2,CSR 
8315 026224 104425 LOADCSR ;LOAD CSR WITH DATA 
8316 026226 LET (R1) := RO ;WRITE DATA TO TEST ADDRESS 
026226 010011 MOV RO,C(R1) 
8317 026230 104503 CLR1CSk ;CLEAR CSR 
8318 026232 005711 TST C(R1) ;CORRECT SBE 
8319 026234 1044 READCSR ;READ CSR FOR CORRECT SBE BIT AND SYNDROMES 
026236 042737 177757 002150 BIC #tC20,CSR ; CLEAR ALL BUT SBE INDICATOR 
8321 026244 IF CSR NE #20 ;WAS DATA CORRECTED??? 
026244 023727 002150 000020 CMP CSR,#20 
026252 001407 BEQ L227 
8322 026254 LET GOOD := #20 ; 
026254 012737 000020 002044 MOV #20,G00D 
8323 026262 LET BAD := CSR : 





te 


I mm —< ~ = - — 


Le 
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vos. 
MTPO20 SYNDROMES TO CSR ON SINGLE BIT ERROR TEST 


SEQ 0231 
026262 013737 002150 002052 MOV CSR,BAD 
| 8324 026270 104060 ERROR +60 ;NO ERROR 
8325 026272 END ; 
026272 
8326 026272 104514 SYNREG sENABLE SYNDROME” ait iReCk STeR 
8327 026274 104426 READCSR GET SYNDROMES FROM C 
8328 026276 042737 174033 002150 BIC #tC3744,CSR ;MASK SYNDROME BITS 
8329 026304 LET R3 :B= SBESYN(R4) ‘GET GOOD SYNDROMES 
026304 116403 026422 MOVB SBESYN(R4),R3 
8330 026310 072327 900005 ASH #5,R3 ;SHIFT INTO 4 he 
8331 026314 052703 BIS #B1T2,R3 SET DIAG MODE IN DAT 
8332 026320 IF R3 NE CSR :DO SYNDROME BITS AGREE 
026320 020337 002150 CMP R3,CSR 
026324 001411 BEQ L230 
8333 026326 SET HEADER ; 
026326 012737 177777 002612 MOV #-1,HEADER 
8334 026334 LET GOOD := R3 ; 
026334 010337 002044 MOV R3,GO00D 
8335 026340 LET BAD := CSR ; 
026340 013737 002150 002052 MOV CSR,BAD 
8336 026346 104042 ERROR +42 ; 
8337 026350 END ; 
026350 L230:ssisis 
8338 026350 005011 CLR (R11) ;CLEAR LUT 
8339 026352 IFB PASFLG EQ #1 ;SHIFT NEW DATA DEPENDING ON PASFLG 
026352 1237 002264 000001 CMPB PASFLG, #1 
026360 001 B 31 
8340 026362 006305 ASL RS ;SHIFT BITNO TO THE LEFT 
8341 026364 ELSE : 
026364 000402 BR L232 
026366 LO3l:issss: 
8342 026366 000261 SEC ;SET CARRY BIT AND...... 
8343 026370 006105 ROL R5 sROTATE LEFT 
8344 026372 END ; 
0263 Lese:sisse: 
8345 026372 UNTIL BITNO EQ #16. ;UNTIL ALL BITS ARE DONE 
0263 023727 002324 000020 CMP BITNO, #16. 
0264 001276 BNE B33 
2 ES3:sssics 
;COMPLEMENT DATA AND REPEAT 


026402 
8346 026402 005100 COM RO 
UNTILB PASFLG EQ #2 


8347 026404 sUNTIL 2 PASSES ARE COMPLETE! 
026404 123727 002264 000002 CMPB PASFLG, #2 
026412 001252 B32 
026414 Se: ssssss 

8348 026414 104503 CLR1ICSR ;CLEAR CSR 

8349 026416 104423 CACHON ; TURN CACHE 

tity 026420 000207 RETURN 

asat ; MSV11-P SINGLE BIT ERROR SYNDROME BIT TABLE 

8354 026422 016 013 023 SBESYN: .BYTE 16,13,23,25,26,31,32,34,43,45,46,51,52,54,61,64 
026425 025 026 031 

30 032 034 043 
026433 045 046 051 
026436 052 054 061 


8355 


~~ cA. A. a. tae 


Me 
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/MTPO20 SYNDROMES TO CSR ON SINGLE BIT ERROR TEST 


| 8357 026442 MTPA21: SUBTST <<MTPA21 MARCHING 1'S & 0'S PATTERN TEST>> 


FSS SESSSSSSESSSSESSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSSSESSHSSSSSSSSESSS SESS S ee eseeeeeas 


; *SUBTEST MTPA21 MARCHING 1‘'S € 0’S PATTERN TEST 
5 EEEEEEESESESSSESESESESESEESESSSSSEEERESESESESESEAETERESESERERAEE ERE HE RET EE EEE EEE 


6358 ;READ,BYTESWAP-MODIFY ,READ ,DOWN 
8359 026442 014100 1$: HOV -(R1),RO0; :V177640 
8360 026444 020200 CMP R2,RO0 Vi77642 
8361 026446 001401 BEG 2$ ;V177644 
tr! 026450 104443 PERR17 ;V177646 
8364 026452 000311 2$: SWAB (Ri) ;V177650 
8365 026454 011100 MOV (R1),RO ;V177652 
8366 026456 020 CMP “RO ;V177654 
8367 026460 001401 BEQ ;V177656 
HH 026462 104 PERR20 ;V177660 
8370 026464 020401 3$: CMP R4,R1 ;V177662 ; DONE ? 
8371 026466 00136 BNE ;V177664 ;NO - LOOP 
co7¢ 026470 000207 RETURN ;V177666 ;YES - RETURN 
6374 026472 MTPB21: ;READ,BYTESWAP-MODIFY,READ,UP 
8375 026472 011100 1$: MOV (R1),RO ;V177640 
8376 026474 020300 CMP , ;V177642 
8377 026476 001401 BEQ ;V177644 
th 026500 104444 PERR20 ;V177646 
8380 026502 000311 2$: SWAB CR1 ;V177650 
8381 026504 011100 V (R1),RO ;V177652 
8382 026506 020200 CMP R2, ;V177654 
8383 026510 001401 EQ 3 ;V177656 
8384 026512 104443 PERR17 ;V177660 
8386 026514 062701 000002 3$: ADD #2,R1 ;V177662 
8387 026520 020501 CMP RS,R1 ;V177666 ; DONE ? 
8388 026522 001365 BNE ;V177670 ;NO - LOOP 
rtrd 026524 0207 RETURN ;V177672 ;YES - RETURN 
8391 026526 MTPC21: ;READ,BYTESWAP-MODIFY ,READ,UP 
8392 026526 011100 1$: MOV (R1),RO ;V177640 
8393 026530 020200 CMP R2,RO ;V177642 
8394 026532 001401 BEQ 2$ ;V177644 
8395 026534 104443 PERR17 ;V177646 
8397 026536 00031 2$: SWAB (R1) ;V177650 
8398 026540 0111 MOV (R1),RO ;V177652 
399 026542 020300 CMP R3,RO ;V177654 
026544 001401 BEQ 3$ ;V177656 
8401 026546 104444 PERR2O ;V177660 
8403 026550 062701 000002 3$: ADD #2,R1 ;V177662 
0265 020501 CMP R5S,R1 ;V177666 ; DONE ? 
8405 026556 001363 BNE ;V177670 ;NO - LOOP 
8406 026560 000207 RETURN ;V177672 ;YES - RETURN 


SEQ 0232 


ee 


Ne 
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TPA21 MARCHING 1'S € 0’S PATTERN TEST SEQ 0233 
026562 MTPD21: ;READ,BYTESWAP-MODIFY,READ ,DOWN 

8410 026562 014100 1$: MOV -(R1),RO;V177640 
11 026564 020300 CMP R3,RO ;V177642 
8412 026566 001401 BEQ 2$ ;V177644 
oats 026570 104444 PERR2O ;V177646 
8415 026572 000311 2s: SWAB (R1) ;V177650 
8416 026574 011100 MOV (R1),RO ;V177652 
8417 026576 020200 CMP R2,RO ;V177654 
8418 026600 001401 BEQ 3$ ;V177656 
tt 026602 104443 PERR17 ;V177660 

8421 026604 020401 3$: CMP R4,R1 ;V177662 ; DONE ? 
001365 1$ ;V177664 


8422 026606 BNE ; ;NO - LOOP 
oes 026610 000207 . RETURN ;V177666 ;YES - RETURN 


_ —_———— ec aa 


LLL LLL ELLIO I 


B3 
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MTPA21 MARCHING 1’'S & 0'S PATTERN TEST SEQ a 


8427 026612 MTPO22: SUBTST <<MTPO22 REFRESH & SHIFTING DIAGONAL TEST>> 
5 FO8SSOFSSSSSSEESESSSSES ESSE ESSERE SESESRAERERERARER ESAS Ee eRe eeeeaeeereeeseres 
;*SUBTEST REFRESH € SHIFTING DIAGONAL TEST 
peeeaee wee ye oe oe ae 
8428 (1) WE WRITE A DIAGONAL PATTERN IN MEMORY (WITH CACHE ON). 
8429 (2) IF A REFRESH TEST WE DISTURB ALL ROWS FOR > 2 MS (WITH CACHE ON). 
8430 oe WE READ € CHECK FOR CORRECTNESS THE DIAGONAL PATTERN 
8431 CuITH CACHE OFF). 
8432 000010 KDIAG=8.- ;HOW OFTEN A DIAGONAL STRIPE OCCURS (MUST BE A POWER OF 2) 
8433 026612 FOR EVEN := #1 TO #2 ;FOR DATA & COMPLEMENT DATA 
026612 012737 000001 002364 MOV #1, 
026620 B34:sisee3 
34 026620 IF EVEN EQ #1 
026620 023727 002364 000001 CMP EVEN, #1 
026626 001005 BNE L235 
8435 026630 LET R2 := ZEROS 
026630 013702 002336 MOV ZEROS.R2 
8436 026634 LET R3 := ONES 
026634 013703 002614 MOV ONES,R3 
8437 026640 ELSE 
026640 000404 BR L236 
026642 Loss:ssisis 
8438 026642 LET R2 := ONES 
026642 013702 002614 MOV ONES,R2 
8439 026646 LET R3 := ZEROS 
026646 013703 002336 MOV ZEROS,R3 
8440 026652 END ;OF IF EVEN 
026652 L236: s55553 
8441 026652 FOR STRIPES := #0 TO #KDIAG-1 ;FOR THE NUMBER OF STRIPES 
026652 005037 002366 CLR STRIPES 
026656 BS5:ssssss 
at ;WRITE LOOP 
026656 104423 CACHON ; TURN CACHE ON 
8445 026660 LET COUNT := STRIPES 
026660 013737 002366 002370 MOV STRIPES, COUNT 
8446 026666 LET R1 := #FIRST 
026666 012701 060000 MOV #FIRST,R1 
8447 026672 WHILE Ri LOS #LAST 
026672 B36:issss3 
026672 020127 157776 CMP R1,@LAST 
026676 101032 BHI L237 
8448 026700 IF COUNT LT #0 THEN LET COUNT := #KDIAG-1 
0267 005737 002370 TST COUNT 
026704 002003 BGE L240 
026706 012737 000007 002370 MOV #KDIAG-1,COUNT 
026714 L240: ssscei 
8449 026714 IF #374 OFF.IN Ri THEN LET COUNT := COUNT - #1 
026714 032701 000374 BIT #374,R1 
026720 001002 BNE L241 
026722 005337 002370 DEC COUNT 
0267 L2O41:sssses 
8450 026726 IF COUNT NE #0 
0267 005737 002370 TST COUNT | 
026732 001404 BEQ L242 
8451 026734 LET (R1) := Re 
0267 010211 MOV R2,(R1) 





CVMJAAO MSV11-J MEMORY DIAG. 


MTPO22 REFRESH & SHIFTING DIAGONAL TES 


8452 026736 
026736 

8453 026742 
026742 
026744 

8454 026744 
026744 

8455 026746 
746 

8456 026752 
026752 

8457 026752 
026752 

8458 026756 
026756 
8459 026762 
026762 


8463 

8464 026776 
026776 

8465 027004 
027004 

8466 027010 


010261 
000403 


010311 
010361 


005337 
062701 
000743 


013737 


012701 
104424 


000002 


002370 


002004 
027166 


002366 
060000 


CS 
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002370 


T 


LET 2(R1) := R2 
ELSE 


LET (R1) := R3 
LET 2(R1) := R3 
END ;OF IF COUNT 
LET COUNT := COUNT - #1 
LET R1 := Rl + #4 
END ;OF WHILE 


;END OF WRITE LOOP 
IF OIAGFLAG IS FALSE THEN $CALL REFRESH 


;READ LOOP 
LET COUNT := STRIPES 


LET R1 := #FIRST 


CACHOFF ;TURN CACHE OFF 


MOV R2,2(R1) 


BR L243 
Lo4e:sissss 


MOV R3,CR1) 

MOV R3,2(R1) 
Le4s:iiscas 

DEC COUNT 


ES6:ssssa3 


TST DIAGFLAG 
ag 


JSR PC,REFRESH 


MOV STRIPES, COUNT 
MOV #FIRST,R1 


SEQ 0235 


—_— — SS ES A —— = 
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MTPO22 REFRESH & SHIFTING DIAGONAL TEST SEQ 0236 
8468 027012 WHILE R1 LOS #LAST 
027012 BS7sssssas 
027012 020127 157776 CHP R1, OLAST 
027016 101046 | BHI L245 
8469 027020 IF COUNT LT #0 THEN LET COUNT := #KDIAG-1 
027020 005737 002370 TST COUNT 
027924 002003 BGE L246 
027026 012737 000007 002370 MOV #KDIAG-1, COUNT 
027034 L246: sisca3 
8470 027034 IF #374 OFF.IN Ri THEN LET COUNT := COUNT - #1] 
027034 032701 000374 BIT #374,R1 
027040 001002 BNE L247 
027042 005337 002370 
027046 L247:sssei 
8471 027046 IF COUNT NE #0 
027046 005737 002370 TST COUNT 
027052 001412 BEQ L250 
8472 027054 LET RO := (R11) 
027054 011100 MOV (R1),RO 
8473 027056 IF R2 NE RO 
027056 020200 CMP R2,RO 
027060 001401 BEQ L251 
8474 027062 104443 PERR17 
8475 027064 END ;OF IF R2 
027064 L251:ssisis 
8476 027064 LET RO := 2(R1) 
027064 016100 000002 MOV 2(R1),RO 
8477 027070 IF R2 NE RO 
027070 020200 CMP R2,RO 
027072 001401 BEQ L252 
8478 027074 104443 PERR17 
8479 027076 END ;OF IF R2 
027076 Lese:ssssse 
8480 027076 ELSE 
027076 000411 BR L253 
027100 L250: sisse3 
8481 027100 LET RO := (Ri) 
027100 011100 MOV (R1),RO 
8482 027102 IF R3 NE RO 
027102 020300 CMP R3,RO 
0271 001401 BEQ L254 
8483 027106 104444 PERR2O 
8484 027110 END ;OF IF R3 
027110 L254: ssc: 
8485 027110 LET RO := 2(R1) 
71 016100 000002 MOV 2(R1),RO 
8486 027114 IF R3 NE RO 
027114 020300 CMP R3,RO 
027116 001401 BEQ L255 
8487 027120 104444 PERR2O 
8488 027122 END ;OF IF R3 
027122 LoeS:sssses 
8489 027122 END ;OF IF COUNT 
027122 L253:ssi333 
8490 027122 LET COUNT := COUNT - #1 
027122 005337 002370 DEC COUNT 
8491 027126 LET R1 := R1 + #4 


i 
' 
' 


027126 
8492 027132 

027132 

027134 

027134 
8493 


8494 
8495 027134 
027134 


027164 
8497 027164 
8498 
8499 027166 


8500 
8501 027166 
027166 


0 
8502 027172 
8503 os 


0 
8504 oereie 
8505 ps AL 


0 
8506 027222 
8507 027226 


8508 027 


027234 
8509 027234 
8510 027236 
8511 027242 


8518 027264 


062701 
000727 


005237 
023727 
003643 
005237 
023727 
003616 


000207 


012700 
004737 
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1100004 


002366 
002366 


002364 
002364 


060000 
027236 


000004 
060374 


120000 


020372 
027236 
000004 


000640 
000002 


000002 
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ES 


SEQ 0237 
ADD #4,R1 


END ;OF WHILE 


BR 837 
Less ssaaes 


;END OF READ LOOP 
END ;OF FOR STRIPES 


END ;OF FOR EVEN 


RETURN 


REFRESH: SUBTST 
5 RREEREE EERE ERR ERE EERE EERE EERE EERE EERE EERE EERE EERE EEE EEE EEEEEEEEEES SEES EEE EEE ED 
; *SUBTEST 
5 ERE RRR E AERA ER ER EE EEE REE REE E SERRE EEE EERE REE A EASE EERE EERE REESE EEE EEE EEE EEE 
poe EACH ROW FOR > 3.2 MS 

:= #FIRST TO OFIRST +374 BY #4 


REF SUB: 


1$: 


FOR RO : 


<<SUBR 
SUBR 


CALL REFSUB 
END ;OF FOR RO 


LET RO : 


INC STRIPES 
CMP STRIPES, #KDIAG-1 
BLE 635 


CSS sssssss 
INC EVE 


REFRESH DELAY>> 
REFRESH DELAY 


MOV #FIRST,RO 


ADD #4,RO 
CMP RO, #FIRST+374 
BLE B40 


:= #FIRST+BIT14 
WHILE RO LOS #LAST+BIT14+374 


B4lisssess 
CMP RO, #LAST+BIT14+374 
BHI L256 
CALL REFSUB 
LET RO := RO + #4 
ADD #4,R0 
END ;OF WHILE 
BR B41 
L256:s55383 
C41: sssces 
RETURN 
MOV #640 ,R4 ;TIME FOR A > 3.2 MS LOOP 
ADD #2 ,RO 
COM -(RO) 
COM CRO)+ 
COM (RO) 
COM (RO) 
SOB R4,1$ 
SUB #2,RO 
RETURN 





8547 027266 


549 
8550 027274 
8551 
8552 027276 
8553 027300 
8554 027302 
8555 027304 
8556 
8557 027306 
8558 027312 
HH 027314 


560 
8561 027316 
8562 027322 


~~ — ———— -—_—<--—« 


CVMJAAO MSV11-J MEMORY DIAG. 
- SUBR REFRESH 


8521 027266 


DELAY 


062702 
020205 
101764 


062701 
000137 


000400 


000002 
027326 


MTPA24: 
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SUBTST 


TT — me — - — _———— ewe - - - 


F 3 


<<MTPA24 FAST GALLOPING PATTERN TEST>> 


ESSE SESSESES SSE SESS SSES SS SES SESESSSSSSESSESSSSSES ESSERE REC SE SESE SESS 


; *SUBTEST 
eK me aS YS CEC Y ¥- 0 > ennnnnnnennenaieen 


;THE TOTAL TEST CINCLUDING SETUP) IS AS 
Is T S THE ME 


1$: 


2s: 


3$: 


;#(1) 


ADD 
CMP 
BLOS 


ADD 
JMP 


B 
PERR24 


MTPA24 FAST GALLOPING PATTERN TEST 


FOLLOWS 
MORY WITH A BACK GROUND PATTERN 


BAKPAT 
TEST BEGINS AT _ LOCATION BEING TESTED 
(LETS NAME IT ‘A') 

LETS NAME THE 1ST tht r THE ROW/COLUMN UNDER TEST AS ‘'B’. 
SWAPS BYTES FOR LOCA TION ' 


READS ‘A‘, READS ' 
'B! = 'B'4400 CADDS 64 DOUBLE WORDS TO 'B') 
REPEATS STEPS 5 AND 6 UNTIL 'B' IS GREATER THAN THE 
END OF THE BANK A+2 
REPEATS STEPS 3-8 UNTILL 'A' REACHES THE END OF THE BANK 
AFTER EXECUTING THE TEST DATA IS COMPLEMENTED 
S 1-9 ARE REPEATED 


AND STEP 
: REGISTERS ARE USED AS FOLLOWS 
TEST DATA 


BAKPAT 
SWAPAT 
LAST 


(R1),RO ;V177640 sREAD ‘A’ 
RO,R4 ;V177642 ;CHECK ‘A’ 
2s ;V177644 ;BR IF OK 
;V177646 ;REPORT ERROR 
CR2),RO ;V177650 ;sREAD 'B’ 
RO,RS ;V177652 ;CHECK ‘B’ 
3$ ;V177654 ;BR IF OK 
;V177656 ;REPORT ERROR 
#400 ,R2 ;V177660 ;BUMP ‘B’ 
R2,R5 ;V177664 ;AT END YET? 
1$ ;V177666 ;BR IF NO 
#2,R1 ;V177670 ;BUMP ‘A’ 
aeMTPB24 ;V177674 ;GOTO V177260 


mee wee wee ee ee 


- -_ e—— oO 


~CVMJAAO MSV11-J MEMORY DIAG. 


| 8565 027326 


8566 
8567 027326 
8568 027330 
8569 027332 001001 
8570 027334 07 
oii 027336 


8573 027342 


8574 

8575 027342 
8576 027344 
8577 027346 020004 
8578 027350 
8579 027352 104447 
8580 027354 000137 


027342 


027306 


v———— EEE A A em -_-- _— -- oe - 


G35 
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MTPB24: SUBTST <<MTPB24 FAST GALLOP PART B>> 
5 EEEEEEEEEEEEEEEEEEEEEESE EES SEER EERE EERE ESE REE REEEESEEEEEE RHEE EERE EEE Ee ERE EES 


; *SUBTEST MTPB24 FAST GALLOP PART B 
cine = ‘inherent ce eeeeneeneneennnmenntienneee 
MOV R4,(R1) ;V172260 ;WRITE ‘A’ 
CMP R1,R5 ;V172262 ; DONE? 
BNE 1$ ;V172264 ;BR IF NO 
RETURN ;V172266 ;YES - RETURN 
1$: JMP aeMTPC24 ;V172270 ;GOTO V172360 


MTPC24: SUBTST <<MTPC24 FAST GALLOP PART C>> 


EEE KEKE EEESEREKASEKERESAEEEEEEEEESEERESKEEKEERES EKER ESE REE EEE RE EES 


; *SUBTEST MTPC24 FAST GALLOP PART C 
ei =i eee sn ost eine conemmeemernennnenene 
MOV R1i,R2 ;V172360 sRESET ‘B’ <--- ‘A’ 
MOV (R1),RO ;V172362 ;sREAD ‘A’ 
CMP “RO,R4 ;V172364 ;CHECK ‘A’ 
EQ 1 ;V172366 ;BR IF OK 
PERR23 ;V172370 ;REPORT ERROR 
1$: JMP O#MTPA24+20 ;V172372 ;GOTO V177660 


SEG 0239 


* 
EL LE A 


CVMJAAO MSV11 


mm eee = - — ~_—- ~~ -- 


= ~~ — <<< 


-J MEMORY DIAG. 


'MTPC24 FAST GALLOP PART C 


' 
i 
' 
’ 


8584 027360 


8585 027360 
8586 027364 
8587 027366 
8588 027370 
8589 027372 


8590 
8591 027374 


8592 
8593 
8594 027374 


8605 027426 
8606 
8607 
8608 
8609 027430 


8621 

8622 027450 
8623 027450 
8624 4S2 


8627 027462 


000137 
010221 
010321 
077005 

207 


073427 


027430 


027430 


177764 


000007 


001057 


047401 


027364 


H3 
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MTPA26: SUBTST <<MTPA26 RANDOM DATA CWRITE)>> 


§ FS SSSSSSESSESSSSSSESSESSSSESSSS SSS SSS SSS ESSE SSS SSE SESS SASSER REE ERE REESE 


; *SUBTEST MTPA26 RANDOM DATA CWRITE) 
{FEES ECEEEEEEEEEEEEEEERESSESERSSESESERESEEEES ESET ERESE EERE ERE E EERE EEE E HERR EEE 
JMP DeMTPC26 ;V177640 GOTO V172360 
MOV R2,(R1)+ ;V177644 
MOV R3,(R1)+ ;V177646 
SOB RO,1$ ;V177650 
RETURN ;V177652 
MTPB26: SUBTST <<MTPB26 RANDOM DATA CREAD)>> 


SEES SSSSEESESESESESSESESSSESESSSSESESECESESSERSESSESESKSE SEES SSEKESESEEESSESRSSSSESSESE SESE SE EES 


; *SUBTEST MTPB26 RANDOM DATA (READ) 
| ERREEREEE EERE EEEEEERE EE ERAE EER ER EERE SEER EEE ERER ERE EERE REE E ERE EERE SER ERE EERE EEE 
-DSABL AMA 
-ENABL LSB 
1$: JMP a#MTPC26 ;V177640 GOTO V172360 
CMP R2,(R1)+ ;V177644 
BEQ 2$ ;V177646 
PERR25 ;V177650 
2$: COM (PC)+ ;V177652 
RANODD: 0 177654 FOR ERROR REPORTING 
CMP R3,(R1)+ ;V177656 
BEQ 3$ ;V177660 
PERR2S ;V177662 
3$: COM RANODD ;V177664 
SOB RO,1$ ;V177670 
RETURN ;V177672 
.DSABL LSB 
-ENABL AMA 


MTPC26: SUBTST <<RANDOM NUMBER SUBPROGRAM> > 
EERE E EEE EEEEEER EERE ERASE EEERE EER ERE ERE EE ERE EE EERE REESE EEE EEE EEEEEE EE EEE EEE ES 


;*SUBTEST ANDOM NUMBER SUBPROGRAM 
SERRE EERE EERE RARE ERE ER EEE EE EERE EEE EE AERA EERE ERE EEE RE ER EE EE EEE EERE EERE EE EES 


;CALLER MUST SETUP 


; MOV SEEDLO,R3 

; MOV SEEDHI ,R2 

; MOV R3,R5 

3 MOV R2,R4 

ASHC #7 ,R4 ;V172360 

ADD R3,R5 ;V172364 

ADC ;Vi72366 

ADD R2,R4 ;V172370 

ADD #1057,R5 :V172372 

NOP ;V172376 GOTO V172260 


MTPD26: SUBTST <<RANDOM NUMBER SUBSUBPROGRAM> > 
SERRE ARERR EEE E ERE EERE EER EERE EERE RES E EER ES EEE EERE EEE R EEE EE EE EEE SE EEE EERE SESE 


; *SUBTEST RANDOM NUMBER SUBSUBPROGRAM 
{EE EREEERE EERE REESE AER ERE EERE EEE EEE EERE REESE EEE E EEE ERASE EERE EE EES EEE EERE EERE EE 
ADC R4 V172260 
ADD #47401,R4 ;V172262 
MOV RS,R3S ;V172266 
MOV R4,R2 ;V172270 
JMP DHMTPA26+4 ;V172272 GOTO V177644 





SEQ 0240 


—_ - _————<—- -— — A EE —- —— ee ~ - - ——~— + 


La 
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RANDOM NUMBER SUBSUBPROGRAM 


SEQ 0241 
| 8630 027466 MTP030: SUBTST <<MT0030 FLUSH OUT DBE’ S>> 
§ ESS ESESESESSESSESSESESESSESEESSSSSESSESSESSES SEAS SSE SESS SES SS SSSR KE CER EKER RE ES 
: ; «SUBTEST MTO0O30 FLUSH OUT DBE'S 
FEES SESSESSESSESERESESES SESE ESS SESS SSE SSS SES SEESSES RESETS SEEKER ERE RE REE EE ES 
8631 027466 011002 is: MOV (RO),R2 ;V177640 
8632 027470 010220 MOV R2,(RO)+ :V177642 
8632 027472 077103 SOB Ri,1$ ;V177644 
8634 027474 000207 RETURN :V177646 
8636 027476 MTPO31: SUBTST <<MTPO3i SOB-A-LONG TEST>> 
§ SEEKS SSESEREESEKSE SEEKS ESTEE SERSESESE CERES SESEESKEKEREEEE ESTES ESE ES 
; «SUBTEST MTPO31 SOB-A-LONG TEST 
8637 SSSA ESESESSESEEESEE SESE SEEKERS EERE SCE KEES ES SESE SSERSESESEE SEES ESE R EEE ESE 
8638 027476 000000 0 ;MOVE TERMINATOR 
8639 027500 077001 1$: SOB RO,1$ ;SOB TILL RO UNDERFLOWS 
8640 027502 005167 177772 COM i$ ;WRITE COMPLEMENT OF SOB 
8641 027506 020167 177766 CMP Ri,1$ sREAD & CHECK FOR NOT "SOB RO,DOT” 
8642 027512 001403 BEQ 2$ ;0K - SKIP 
8643 027514 104454 PERR30 
8644 027516 010167 177756 MOV R1i,1$ 
8645 027522 005167 177752 2$: COM 1$ ;CORRECT SOB INSTRUCTION 
8646 027526 010200 MOV R2,RO sREINITIALIZE SOB CONSTANT 
7 ;UPDATE MOVE REGISTERS 
8648 027530 010503 MOV R5,R3 
8649 027532 005725 TST (R5)+ ;BUMP (SAFELY) BY 2 
8650 027534 010504 MOV R5,R4 
8651 027536 020537 0C2522 CMP R5, O#LINK1 ; DONE ? 
8652 027542 001001 BNE 3$ ;NO - SKIP 
8633 027544 000207 RETURN YES 
8655 027546 014344 3$: MOV -(R3),-(R4) 
8656 027550 001376 BNE 3$ 
8657 027552 000752 BR 1$ 
5 000056 SOBLENGTH=. -MTP031 


8658 
8659 ENABL AMA 


EE LLL LLL LLL LO - _—_—< 
ST TT TL LT 


rr -——<—-—« ene ~ —— - —— —_ = 


JS 
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-MTP031 SOB-A-LONG TEST SEQ 0242 


_——_— ee | 


8687 027554 MTPO32: SUBTST <<MTPO32 WRITE RECOVERY TEST>> 
jPESEEEESEEEEEEESESEEEEESSESSESESEESESEREREREEESEEEERE EEE EREE EERE EERE RE REESE EES 
; *SUBTEST MTPO32 WRITE RECOVERY TEST 
Pitti it titi iii ii iitt it titties iit irri rrriiiiiiiiiiiiiiiiitii tt 
8688 ‘ne TEST ACTUALLY EXECUTED ALREADY IN THE MEMORY TEST. 
8689 THIS CODE INSURES THAT IT CHANGED MEMORY TO HAVE 
8690 :1/ 2 BANK OF #5141 WHICH IS A “COM -C(R1)" INSTRUCTION AND 
44s 31/2 BANK OF $110. WHICH IS A “JMP (RO)“ INSTRUCTION. 
6693 027554 012401 1$: MOV (R4)+,R1 ;Vi77640 ;GET DATA FROM LOWER 1/2 BANK 
8694 027556 020102 CMP R1,Re2 ;V177642 :IS IT #5141? 
8695 027560 00140 Q $ ;V177644 YES -_ SKIP 
8696 027562 1044 PERRO2 ;V177646 NO - TAKE ERROR TRAP 
8697 027564 07730 2$: SOB R3,1$ ;V177650 ;LOOP FOR 1/2 BANK 
027 013703 002522 MOV a#LINK1 ,R3 ;V177652 RESTORE LOOP SIZE 
8699 027572 012400 3$: MOV (R4)+,RO ;V177656 ;GET DATA FROM UPPER 1/2 BANK 
700 027 020005 CMP RO,RS ;V177660 ;IS IT #110? 
8701 027576 001401 BEQ ;V177662 ;sYES - SKIP 
702 027 104427 PERRO1 ;V177664 ;NO- TAKE ERROR TRAP 
8703 027602 077305 4$: SOB R3,3$ ;V177666 ;LOOP FOR 1/2 BANK 
8704 027604 000207 RETURN 


~_ —_ * Li ae rr ee —_——- — _ - —— 


KS 
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MTPO32 WRITE RECOVERY TEST SEQ 0243 
8707 027606 MTPO33: SUBTST <<MTPO33 BRANCH GOBBLE TEST>> 


eS ce ma 


8709 027606 
8710 027610 


8715 027622 
8716 


8717 
8718 027624 
oan 027626 


8725 027640 

8726 027642 

8727 

8728 

8729 

8730 027644 

8731 027646 

8732 027652 
3 027654 


5 
8736 027656 
8737 027660 
027662 


0 
8741 027664 
8742 027670 
ores 027672 


45 
8746 027674 


8749 027702 
8750 
8751 


000000 


000000 
000261 
105511 
100402 
105212 
000773 


102401 
104461 


005202 


010503 
5 


00100 
000207 


000036 


002522 


5 FSS SSSSSSSSEESSSSS SSS SSS SSSESSESSSSSSSSSSSSS ASSESSES SESE SERRE ERE KEKE SEES 
T 


FSS ESSSESSSESSESEASESS SSS SS SES SESSSSESSS SSS SSS SSSESSSSETCEKESEEKESSRSESE SEEKER E CER REESE ES 


; *SUBTEST MTPO33 
~— AMA 
BGTEST: 0 
BRGOBB: SEC 
ADC (R1) 
BMI i$ 
INCB (R2) 
BR BRGOBB 
1$: BVS 
PERR35 
2s: CLV 
INCB (R2) 
BCS 3$ 
BYVC 3$ 
BMI 4$ 
3$: PERR35 
;UPDATE TEST POINTERS 
4$: _ MOV PC, 
5$: SUB #5$-BGTEST,R1 
MOV R1,R2 
INC 
;sUPDATE MOVE REGISTERS 
MOV R5, 
TST CRS)+ 
MOV R5,R4 
; DONE? 
CMP R5,d#LINK1 
BNE 
RETURN 
;sMOVE CODE 1 LOCATION 
6$: MOV -(R3),-CR4) 
BNE 6$ 
CLR (Ri) 
BR BRGOBB 
GBLENGTH=. -MTPO33 
-ENABL AMA 


‘MOVE TERMINATOR 

;TEST WORD (TWO BYTES) 

;SET CARRY (TO BE ADDED TO “BGTEST" ) 
LOW s OF “BGTEST" 


7B 7 IS SET 
; INCREMENT NIGH BYTE OF “BGTEST"” 
;LOOP 128 TIMES 


; NOW = FOR CORRECT or ot CODES 


;BR IF V-BIT SET (SHOULD BE) 
;NO - REPORT ERROR AND ABORT TEST 
;COND CODES NOT EQUAL TO 1010 

;CLEAR V-BIT 

TNCREMENT HIGH BYTE OF “BGTEST" ONCE MORE 
;BR IF C-BIT SET (SHOULD NOT BE) 

;BR IF V-BIT CLEAR CSHOULD NOT BE) 

;BR IF N-BIT SET (SHOULD BE 

;NO - REPORT ERROR AND ABORT TEST 

;COND CODES NOT EQUAL TO 1010 


;BUMP (SAFELY) BY 2 


; DONE ? 
;NO - SKIP 
;YES - RETURN 


;CLEAR TEST WORD "BGTEST” 
;RUN MOVED CODE AGAIN 


—— 


ee 


L3 
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-MTPO33 BRANCH GOBBLE TEST 


8753 027704 
8754 027704 
8760 20 
8761 027722 


8762 027724 
8763 027726 


010220 
077102 
000207 


MTP034: SUBTST <<MTP034 SOFT ERROR - BACKROUND PATTERN TEST>> 


—- ee eee! -=- 


ESSE SESSESSSSESSSSSE SSS SESS SSESSS SESS SSS SSSSSESEASSSESSSSESSSSSARSESSSSESSERES ERE SEE ESE 


;*SUBTEST MTPO34 SOFT ERROR - BACKROUND PATTERN TEST 
| EREEESEEEESESEEEEESSS EES EEEEEESESERESSRERESEERERESE HERES HERES E ESE E RE EEE EES 
1$: MOV R2,(RO)+ ;V177640. 

SOB R1,MTPO34 ;V177642 

RETURN ;V177644 
2$: MOV (R4)+,R1 ;V177646 

CMP R1,Re2 ;V177650 

BEQ 3$ ;V177652 

PERRO2 ;V177654 

NOP ;V177656 
3$: SOB R3,2$ ;V177660 


RETURN ;V177662 


SEQ 0244 


— —— = 


<< ee cc. i a a ae ae 


M3 
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_ MTPO34 SOFT ERROR - BACKROUND PATTERN TEST 


8765 027730 MTPO3S : SUBTST 


SEQ 0245 


<<MTPO35 WORST CASE NOISE PARITY TEST>> 


5 FESESESSESSSSSSSSESSSSSSSSSSSS SSS SSSSSSS SSS SASS SSSSSESSE SSS SESS SSES SESS SSE EE SEESE 


; *SUBTEST 
t 
Prtttittitttttitttit ttt ttt titi itt t ttt ttt ttt ttt itt t ttt titiiiitiiiiiiiiiiitititit 


MTPO3S WORST CASE NOISE PARITY TEST 


eres 027730 012737 000003 002076 MOV #3,NOP ;SET PARITY TRAPS TO RETURN TO “PARTHERE” 

8768 027736 FOR RO := #FIRST TO #LAST BY #4000 
027736 012700 060000 MOV @FIRST,RO 
027742 Bae: sssiaa 

8769 pes 012737 000005 002150 MOV #BIT2!BITO,CSR ;SET WRITE WRONG PARITY & PAR. TRAPS INTO CSR 

8770 027750 104425 LO 

8771 027752 012737 030006 002304 MOV #1$,PARTHERE 

aL 0277 011010 MOV (RO),CRO) ;WWP TEST LOCATION 

8773 027762 005710 TST 0) 

774 0277 010037 002034 MOV RO,ADDRESS 

8775 027770 104050 ERROR +50 

8776 027772 004737 050446 CALL PERBNK 

8777 027776 032763 002000 002666 BIT #BIT10,CONFIG+2(R3) 

8778 030004 001002 BNE 2$ 

8779 030006 104426 1$: READCSR 

th 030010 104512 ERRGEN 

8782 030012 104503 2$: CLRICS 

8783 030014 011010 MOV CRO). CRO) ;CLEAR WRONG PARITY IN MEMORY 
030016 012737 000001 002150 MOV #B1T0, CSR 

8785 030024 10442 LOADCSR 

8786 030026 012737 030040 002304 MOV #3$,PARTHERE 

8787 030034 005710 TST (CRO) 

8788 030036 0 BR 4$ 

8789 030040 010037 002034 3$: MOV RO,ADDRESS 

8790 030044 104050 ERROR +50 

791 030046 737 050446 CALL PERBNK 

8792 030052 4$: END; FOR 
030052 062700 004000 ADD #4000,R0 
030056 020027 157776 CMP RO, #LAST 
030062 003727 BLE B42 

a7e8 030064 E42:ssssaee 

8794 030064 005037 002076 CLR NOPAR ;RESET PARITY TRAP ACTION 

8795 030070 000207 RETUR 


— Lh ee 


CVMJAAO MSV11-J MEMORY DIAG. MACRO VOS.0lb Friday 15-Feb-85 16:10 Page 277 
MTPO35 WORST CASE NOISE PARITY TEST 


| 9797 930072 MTPO36: SUBTST <<MTPO36 CORRECTION CODE TEST>> 
' £SSSSSSSSSSESSSSSSSSSSSSSESSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSESSS SSS eeseseseseses 
 #SUBTEST CORRECTION CODE TEST 
8798 §FSSSSSSSSSSSSSSSSSSSSSSESSESSSSSSSSESSSSSSSSSSSESELSSSSESSSSSSSASSSSSESS SSS SS See eesees 
8799 ’ THIS TEST CHECKS TO SEE THAT EACH BIT OF A DATA WORD 
8800 ’ CAN BE CORRECTED INDIVIDUALLY FROM A ZERO TO A ONE AND 
8801 ; VISA VERSA. 
BB02 030072 104424 CACHOFF ;TURN OFF CACHE 
8803 030074 105037 002264 CLRB PASFLG ‘CLEAR PASFLG 
8804 030100 104513 CBREG SENABLE CHECK/SYNDROME BIT REGISTER 
8805 030102 REPEAT 
ie 
8806 030102 LET PASFLG :B* PASFLG + 01 INCREMENT LOOP COUNTER 
030102 105237 002264 INCB PASFLG 
8807 030106 LET RG := @-1 INDEX TO SINGLE BIT ERROR TABLE 
030106 012704 177777 “1, 
8808 030112 LET BITNO := 90 ;CLEAR INNER LOOP COUNTER 
030112 005037 002324 LR BITNO 
8809 030116 IFB PASFLG EQ #1 SELECT DATA TO BE CORRECTED BY PASSNO 
030116 123727 002264 000001 CMPB PASFLG, #1 
030124 001003 BNE L257 
8810 030126 LET RS := #1 ;DATA=0;BIT TO BE CORRECTED IS A ONE 
030126 012705 000001 MOV #1.R5 
8811 030132 ELSE : 
030132 000402 BR L260 
030134 L257 
8812 030134 LET RS := 0177776 ;DATA=177776;BIT TO BE ‘CORRECTED IS A ZERO 
030134 012705 177776 $177776,RS 
8813 030140 END , 
030140 L260: sssse3 
8814 030140 REPEAT , 
e815 030140 B44:issics 
8816 030140 005237 002324 INC BITNO INCREMENT BIT POINTER 
8817 030144 LET R4 := RO > O1 sPOINT 10 NEXT SET OF CHECK BITS 
030144 005204 
8818 030146 LET R2 :B= PTABLECR4) ;GET NEXT SET OF CHECK BITS 
080146 116402 030276 MOVE PTABLE(R4),R2 
8819 030152 072227 000005 ASH #5,R2 SHIFT TO LINE UP IN CSR 
8820 030156 052702 BIS @BiT2.R2 SENABLE DIAG MODE 
8821 030162 LET CSR := R2 GET CHECK BITS TO BE WRITTEN 
030162 010237 002150 MOV R2,CSR 
B822 030166 104425 - LOADCSR ;LOAD CSR WITH DAT 
8823 030170 LET (R1) := RO ‘URITE DATA-T0 TEST ADDRESS 
030170 010011 MOV RO,(R1) 
8824 030172 005711 TST (R1) CORRECT SBE 
8825 030174 IF (R1) NE RS SWAS DATA CORRECTED??? 
030174 021105 CMP (R1),RS 
030176 001412 BEQ L261 
030200 LET ADDRESS := #60000 | ;MOV ERROR INFORMATION IN 
030200 012737 060000 002034 MOV #60000, ADDRESS 
8827 030206 LET CHECK := R2 
030206 010237 002314 MOV R2,CHECK 
8828 080212 LET TSTDAT := R5 ' 
0 010537 002246 MOV RS, TSTDAT 
8829 030216 LET TSTDAT+2 := (R1) , 


SEQ 0246 


—— —_ = 


— ee ee ee a cee 
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30270 
8842 030270 
8843 030272 
8844 030274 
8845 


8847 
8848 030276 
030301 


030315 


011137 002250 
104052 


000402 


000261 
006105 


023727 
001331 


005100 
123727 
001305 


002264 


002324 


002264 


MACRO VO5.01lb Fridey 15-Feb-85 16:10 Page 277-1 


000020 


000002 


ERROR +52 


CLR (R1) 
IFB PASFLG EQ #1 


ASL R5 
ELSE 

SEC 

ROL RS 


UNTIL BITNO EQ #16. 


COM RO 
UNTILB PASFLG EQ #2 


CLRICSR 
CACHON 


RETURN 


BTABLE: -BYTE 


MOV (R1), TSTDAT+2 
;NO ERROR 
: 


L261lsisisss 
;CLEAR LUT 
;SHIFT NEW DATA DEPENDING ON PASFLG 
CMPB ea 


BNE 
;SHIFT BITNO TO THE LEFT 


; 
BR L263 
L262:is3533 
;SET CARRY BIT AND...... 
sROTATE LEFT 


; 
L263 :sssse3 
;UNTIL ALL BITS ARE DONE 
CMP BITNO, #16. 
BNE 644 


E44: ii35533 
;COMPLEMENT DATA AND REPEAT 
;UNTIL 2 PASSES ARE COMPLETE! 
CMPB PASFLG, #2 
BNE B43 
E43:sssses 
;CLEAR CSR 
; TURN CACHE 


MSV11-P SINGLE BIT ERROR CHECK BIT TABLE 
2.7,37,31,32,25,26,20,57,51,52,45,46,40, 75,70 


SEQ co 


| 


CVMJAAO MSV11-J MEMORY DIAG. 
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— —— 


C4 
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| 8850 030316 MTPO37: SUBTST <<MTPO37 CHECK ECC DISABLE TEST>> 
FFSSSSSSSSSSSSSSESSSSSSSS SSS SESS SSSSSSSSSSSESSESSRSSSESSS ASSESSES SEES EEEEEEE 
;*#SUBTEST MTPO37 CHECK ECC DISABLE TEST 
wins 5 EEEEEEESEEEEEEEEESSEEEEEEEEESEEESSEEEEEREEESEEEREEEEEEERERES EEE EEE EEE EERE ROE E EES 
8852 ; THIS TEST CHECKS THAT ECC CAN BE DISABLED AND THAT 
th ; NO CORRECTION TAKES PLACE WITH ECC DISABLED. 
8855 030316 104424 CACHOFF ; TURN OFF CACHE 
8856 030320 LET GOOD := #0 ;GO0D DATA FOR ERROR PRINT OUT 
030320 005037 002044 CLR GOOD 
8857 030324 LET CHECK := #0 ;CLEAR CHECK BIT FIELD 
030324 005037 002314 CLR CHECK 
8858 030330 104475 CB1iCSR ;ENABLE SYNDROME/CHECK BIT REGISTER 
8859 030332 LET CHECK := #100 ;SBE CHECK BITS 
030332 012737 000100 002314 MOV #100, CHECK 
8860 030340 104475 CBiCSR ;WRITE CHECK BITS TO CB REGISTER 
8861 030342 LET (R1) := #0 ;WRITE CHECK BITS TO MEMORY 
030342 005011 CLR (R1) 
8862 030344 IF (R1) NE #0 ;WAS CORRECTION MADE???? 
030344 005711 TST (R1) 
030346 001406 BEQ L266 
8863 030350 LET BAD := (Ri) ;sYES IT WAS..... ERROR 
030350 011137 002052 MOV (R1),BAD 
8864 030354 LET ADDRESS := #60000 ; 
0303 012737 060000 002034 MOV #60000, ADDRESS 
8865 030362 104037 ERROR +37 ; 
8866 030364 END : 
030364 L266:sise33 
8867 030364 104423 CACHON ; TURN ON CACHE 
8868 030366 000207 RETURN ; 


SEQ 0248 


CVMJAAO MSV11-J MEMORY DIAG. 
_MTPO37 CHECK ECC DISABLE TEST 


| 8871 030370 
! 


5 
8876 pest The 
8877 030374 


030414 
8881 030420 
030420 
8882 030424 
8883 030430 
8884 030432 
030432 
8885 030432 
8886 030436 
030436 
8887 oreaas 
8888 030446 
030446 
8889 030454 
8890 030456 
030456 
8891 030460 
8892 030462 
8893 030464 
8894 030466 
030466 
8895 030472 
8896 030476 
030476 


8897 030500 
8898 030502 
8899 030 
030 
030506 
8900 030510 
030510 
8901 030514 
030514 
8902 030520 
8903 030522 
030522 
8904 030522 
030522 
8905 030524 
8906 030526 


013704 
072427 
042704 
012700 


012701 
162701 


105237 
062700 
062701 


012737 
104475 


042705 


020205 
001405 


010237 


010537 
104455 


005011 
104475 


002102 
000011 
170037 
177740 
060000 
004000 
002264 
002314 


002264 
000040 
004000 
001340 


002150 
170037 


002052 
002044 
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002314 


MTPO41: SUBTST 


<<MTPO41 


--. -— —_—— le = --_— —_ 


SEQ 0249 


—_—— ee ee nm A 


ADDRESS TO CSR ON DOUBLE BIT ERROR TEST>> 


§ FSSESSSSSSSSSS SSS SERS SSESS SSS SECS SSESS SSS SESS SSESSSSSS SSS SSSESSEKSS SESS EEEE ES 


; «SUBTEST 


MTPO041 ADDRESS TO CSR ON DOUBLE BIT ERROR TEST 


§FSESSSSSSSSESSSSS SSS SSS SSS SESE SSESSESE SSE SES SESS SSSERSSSESSSSS SSE RSS SREKECEERERE EES 


LET R4 
ASH #9. 


THIS TEST CHECKS TO SEE IF THE CORRECT ADDRESS APPEARS 
IN CSR BITS 5-11 ON A DOUBLE ERROR. 


:= BANK 


»R4 
BIC #tC7740,R4 
LET RO := #-40 


LET Rl 


:= #FIRST - #4000 ;GET LOW ADDRESS IN BANK 


LET PASFLG :B= #0 


;GET STARTING BANK NUMBER 

MOV BANK,R4 

;SHIFT INTO POSTION TO MATCH ADDRESS IN CSR 

;CLEAR OFF EXTRANEOUS B 

;INIT CSR ADDRESS T0 0 - 1K (BIT 5 = 1K ADD.) 
MOV #-40,R0 

MOV @FIRST,R1 

#4000,R1 


;INIT PASFLG 


CLR CHECK ;CLEAR CHECK BIT FIELD TO BE LOADED 
CBiCSR ;ENABLE CHECK/SYNDROME BIT REGISTER 
REPEAT 
Bas :sssce: 
INCB PASFLG ;INC LOOP COUNTER 
LET RO := RO + #40 ;INC CSR ADDRESS TO BE EXPECTED 
ADD #40,R0 
LET R1 := R1 + #4000 ; 
ADD #4000,R1 
LET CHECK := #1340 ;DOUBLE ERROR CHECK BITS 


CB1CSR 
LET (R1) := #0 


CLRiCSR 


LET RS : 


:=-CSR 


BIC #tC7740,R5 
LET R2 := RO 


ADD R4,R2 
IF R2 NE R5 
LET BAD := R2 
LET GOOD := R5 
“— 


LET (R1) := #0 


CBICSR 
UNTILB PASFLG EQ PASCNT 





MOV #1340,CHECK 
;WRITE DOUBLE ERROR CHECK BITS 
sWRITE DATA AND D.E. CHK BITS AT A=0 


CLR (R1) 
;CLEAR CSR 


sREAD ADDRESS TO GET DOUBLE ERROR 
sREAD CSR FOR CORRECT ADDRESS 


. MOV CSR,RS 

;GET CORRECT ADDRESS 
MOV RO.R2 

;ADD STARTING BANK TO DOUBLE BIT ADDRESS 

;DEBUG AIDE 

;D0 ADDRESSES AGREE? 
CMP R2.R5 
BEQ L267 
MOV R2,BAD 


MOV RS,GOOD 


;NO ERROR 


i 
! 
SUB 
CLRB PASFLG 


L267:sssse3 . 
CLR (R1) | 
sENABLE CHECK/SYNDROME BIT REGISTER | 
:D0 16K AT A TIME | 


Nee nel nn nn nnn nnn nner nner nnn nnnnreeneeeeere erences creer a 


— hm 





E4 
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TPO41 ADDRESS TO CSR ON DOUBLE BIT ERROR TEST 


030526 123737 002264 002570 
001336 


030534 

030536 
8907 030536 104503 CLR1CSR . 
eet 030540 000207 RETURN ; 


cc LL nnn a = Ge ~_-—-— =- —-—— —— . —_ 


CMPB PASFLG,PASCNT 
BNE B45 
CMs: sssces 


EE ES Gem 


CVMJAAO MSV11-J MEMORY DIAG. 
'MTPO41 ADDRESS TO CSR 


| 
| 


———— —— <= 


ON DOUBLE BIT ERROR T 


8912 030542 


8948 030722 


104424 
013704 


023727 
001004 


012737 
000403 


012737 


105037 
013705 


105237 


012737 
104425 


023705 
001406 
013737 


010537 
104023 


002102 
002102 


000001 


000002 


177607 
00000 


002264 
000104 


020000 
002150 


002150 
002044 


000177 


002570 


002570 


172352 


002150 


002150 


002052 





;*SUBTEST 


F4 
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MTPO42: SUBTST 


<<MTPOQ42 


EXTENDED ADDRESS TO CSR ON ERROR TEST>> 
| EEEEEEEEEEEEE EERE EEERE SEER ERE EERE S ESSE SEER SEES EEEE EERE EEREEEEEEEEEE EERE EE EEE ES 


MTPO42 EXTENDED ADDRESS TO CSR ON ERROR TEST 
{ERE EREEEE EEE EEE EEE REE ER ERE RE RES EERE EERE REESE EEE EEEE EEE EEEERESEEEE EERE EEE ES 


; THIS TESTS THE EXTENDED Q-BUS ADDRESS IN THE 


; CSR BY CAUSING A SINGLE ERROR, ENABLING BIT # 14, THEN CHECKING 


CACHOFF 
LET R4 := BANK 
IF BANK EQ #177 


LET PASCNT 
ELSE 


:= #1 


LET PASCNT := #2 
END 
BIC #tC170,R4 
ASH #2,R4 
BIS #B1IT14,R4 
ADD #400,KIPARS 
LET PASFLG :B= #0 
LET RS := BANK 
BIC #tC7,R5 

H #9. »R5 
BIS #BIT4,R5 
CBREG 
REPEAT 


INCB PASFLG 
LET CSR := #104 


LOADCSR 
LET (Ri) := #0 


CLRiCSR 
TST CR1) 


READCSR 

BIC #BIT13,CSR 

IF CSR NE RS THEN 
:= CSR 
:= RS 


LET BAD : 

LET GOOD 

ERROR +23 
END 


FOR THE PROPER ADDRESS IN THE CSR. 


;TURN OFF CACHE MEMORY 
;GET BANK NUMBER TO FIGURE OUT EXTENDED ADDRESS 
MOV BANK ,R4 


;D0 ONCE IN LAST BANK 
;CLEAR OFF LOWER BITS 


;SHIFT TO LINE UP WITH CSR 
7-1 EXTENDED ADDRESS BIT 


CMP BANK, #177 
BNE L271 


MOV #1,PASCNT 
BR L272 


T UP PAR TO <a TO TOP OF A BANK 


SINIT LOOP COUNTE 
RS GETS THE BANK NUMBER 


CLRB PASFLG 
MOV BANK,RS 


;CLEAR ALL BUT THE LOWER BITS 


;ROTATE INTO POSTION 
;SET UP SBE 


INDICATOR ;;DATA TO BE EXPECTED 
ENABLE CHECK/SYNDROME BIT REGISTER 


;INCR LOOP COUNTER 
;WRITE CHECK BITS TO CSR WITH — MODE 


;LOAD CSR WITH DATA 
;WRT ZEROS AT A=0 AND SINGLE wa wit 


;CLEAR 
;sREAD CSR F 


V #104,CSR 


R1) 


CSR 
;READ A=0;DATA ott O SHOULD BE CORRECTED T0 A 1 


OR DA 
;CLEAR POSSIBLE INHIBIT MODE IN DATA “CSR“ 
;HAS SINGLE ERROR BITS SET IN 


MP CSR,RS 
BEQ L273 


MOV CSR,BAD 
MOV RS,GOO0D 


SEQ 0251 


- 
—_— oe 
-— ees er eer 


~—~—— oe 


| 
| 


030722 
8949 030722 
22 


8953 030742 
30742 
030746 

8954 030750 
8955 ye 9 dey 
8956 030762 
030762 

8957 030770 
8958 030772 
030772 

8959 030772 
030772 

8960 030774 
774 


031022 
8965 031022 
8966 031024 
8967 031026 


012737 
104425 
104426 
042737 
023704 
001411 
013737 
010437 


012737 
104023 


005011 
012701 
001312 


000207 


CVMJAAO MSV11-J MEMORY DIAG. 
-MTPO42 EXTENDED ADDRESS TO CSR ON ERROR T 


040000 002150 


020000 
002150 


002150 
002044 
177777 


137776 


002264 


G4 
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002150 


002052 


002612 


002570 


LET CSR 


:= #40000 


LOADCSR 
READCSR 
BIC #B1IT13,CSR 


IF 


CSR NE R4 THEN 


LET BAD : 
LET GOOD : 
SET HEADER 
ERROR +23 


:= CSR 
:= R4 


END 
LET (R1) := #0 


LET Ri 


:= #137776 


ADD #740,R5 
BIS #BIT9,R4 
CBREG 


UNTILB PASFLG EQ PASCNT 


CLR1ICSR 


CACHON 
RETURN 


Lo73S:isssas 
MOV #40000,CSR 


;WRITE EQB BIT TO CSR 


‘READ FOR CORRECT EXTENDED @-BUS ADDRESS 
;CLEAR INHIBIT MODE POINTER IN DATA 
;READ EQB ADDRESS 


CMP CSR,R4 
BEQ L274 


MOV CSR,BAD 
MOV R4,G00D 
MOV #-1,HEADER 


;CLEAR LUT 
;SET UP NEW ADDRESS 
;ADD TO GET NEW ADDRESS 


CLR (R1) 
MOV #137776,R1 


;SET BIT 9 SINCE WE ARE ASSERTING Al ON PASS2 
; ENABLE —- BIT REGISTER 


;LOOP 2 TI 
CMPB PASFLG,PASCNT 
BNE B46 


;CLEAR CSR 
;TURN ON CACHE 


SEQ 0252 


A _ 


- —e 
= «a os —_———_— <= -— we ee ee = — 


H4 
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/MTPO42 EXTENDED ADDRESS TO CSR ON ERROR T SEQ 0253 


8969 031030 MTPO43: SUBTST <<MTPO43 WRITE BYTE CLEARS SINGLE BIT ERROR TEST>> 
Stitt ttt ttt ttt ttt ttt tt tt ttt tt ttt itt ttt ti tit titti tt titi tT ttt TTT TTT TTT Ti Titi TT tit 
;*SUBTEST MTPO43 WRITE BYTE CLEARS SINGLE BIT ERROR TEST 
one Pettitt tt ttt tt ttt ttt tt ttt ttttt ttt tt titi itt iti iti ttiii iii titi ttt itt tt it iti Titi t tT 
8971 ; THIS TEST CHECKS TO SEE IF A SINGLE BIT ERROR WILL BE CORRECTED DURING 
8972 ; THE READ PORTION OF A WRITE BYTE AND THAT THE CORRECT CHECK BITS WILL 
+A ; BE GENERATED ON A WRITE. 
8975 031030 104424 CACHOFF ; TURN OFF CACHE 
8976 031032 104513 CBREG ; ENABLE CHECK/SYNDROME BIT REGISTER 
8977 0310 105037 002264 CLRB PASFLG ; CLEAR LOOP COUNTER 
8978 031040 LET R2 := R1 + #1 :R2 POINTS TO HIGH BYTE 
031040 010102 MOV R1,R2 
031042 005202 INC R2 
8979 031044 LET R4 := #1 ;INITIAL DATA = 1 
031 012704 000001 MOV #1,R4 
8980 031050 REPEAT 
031050 Tisseeee 
8981 031050 105237 002264 INCB PASFLG ; INCREMENT LOOP COUNTER 
8982 031054 LET CSR := #604 ; WRITE CHECK BITS CORRESPONDING TO =. OF 0 
031054 012737 000604 002150 MOV #604,CSR 
8983 031062 104425 LOADCSR ;WRITE CSR 
8984 031064 LET (Ri) := R4 ; WRITE DATA OF 1 CREATING A SINGLE BIT ERROR 
031064 010411 MOV R4,(R1) 
8985 031066 104503 CLRiCSR ;WRITE CSR TO NORMAL MODE 
8986 031070 LET (R2) :B= #377 ;WRITE BYTE OF WORD 
031070 112712 000377 MOVB #377,(R2) 
8987 031074 104426 READCSR ;READ CSR 
8988 031076 042737 177757 002150 ty #tC20,CSR ;SEE IF SBE INDICATOR IS SET 
8989 031104 F CSR NE #20 1S SBE SE1T????? 
031104 023727 002150 000020 CMP CSR, #20 
031112 001407 BEQ L276 
8990 031114 LET GOOD := #20 
031114 012737 000020 002044 MOV #20,G00D 
8991 031122 LET BAD := CSR 
031122 013737 002150 002052 MOV CSR,BAD 
8992 031130 104060 ERROR +60 
8993 031132 ND 
031132 Orssssss 
8994 031132 104513 CBREG ;WRITE CSR TO DIAG MODE 
8995 031134 005711 TST CRI) : READ SAO FOR CORRECT CHECK BITS 
031136 104426 READCSR : READ CSR 
8997 031140 042737 174037 002150 BIC #tC3740,CSR MASK OUT CHECK BIT FIELD 
8998 031146 IF CSR NE #300 ;sWERE CORRECT CHECK BITS GENERATED????? 
0311 023727 002150 000300 CMP CSR, #300 
0311 001412 L277 
8999 031156 SET HEADER 
0311 012737 177777 002612 MOV #-1,HEADER 
9000 031164 LET GOOD := #300 
0311 012737 000300 002044 MOV #300,G00D 
9001 031172 LET BAD := CSR 
0311 013737 002150 002052 MOV CSR,BAD 
031 104061 ERROR +61 
9003 031202 END 
031202 L277 eee ees 
9004 031202 005302 DEC R2 ;sPOINT TO HIGH BYTE AND REPEAT 


=— —« a eer ee 


14 
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9005 031204 LET R4 := #400 ;BIT O OF HIGH BYTE 
031 012704 000400 MOV #400,R4 
9006 031210 UNTILB PASFLG EQ #2 ;D0 HIGH AND LOW BYTE 
031 123727 002264 000002 : CMPB PASFLG, #2 
001314 BNE 847 


C4Tsssicaa 


o 

o 

~ 

MrPNM 
Ree 2 
ono 


0312 
9007 031220 104423 CACHON ; TURN ON CACHE 
9008 031222 000207 RETURN ; 


J4 
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| 9010 031224 MTPO44: SUBTST <<MTP044 SHIFTING CHECK BITS THROUGH THE CSR TEST>> 
| 5 EERE EERE EE EEE EEE EEE EEEEEEE ESE EEEEEEEEEEEEEEEEEEEESEEEEEEEEEEEOEEEE EERE EE RES 
; *SUBTEST MTP044 SHIFTING CHECK BITS THROUGH THE CSR TEST 
—_ 5K eERAEEREEE SEES EEEEEEEREEEEEEESEEEEEREEEEEEEEEEEEEEEERERESEEREEERERE ERE REE EES 
9012 ; THIS TEST CHECKS THE ABILITY " READ AND WRITE CHECKBITS INTO MEMORY 
9013 ; BY SHIFTING A ONE BIT THROUGH A FIELD OF ZEROS. THE CSR IS READ THE 
9014 ; CORRECT PATTERNS. THE TEST IS THEN REPEATED ON A ZERO BIT THROUGH A 
ota ; FIELD OF ALL ONES. 
9017 031224 REPEAT ;ILC;;REV B 
031224 O:ssssss 
9018 031224 104424 CACHOFF ; TURN OFF CACHE 
9019 031226 LET PASFLG :B= #0 : INIT PASFLG 
031226 105037 002264 CLRB PASFLG 
9020 031232 LET RS := #174037 ;CHECK BIT MASK FOR CSR 
031232 012705 174037 MOV #174037,R5 
9021 031236 104475 CBiCSR ;ENABLE CHECK/SYNDROME BIT REGISTER 
9022 031240 LET R2 := #46 ;SET UP INITIAL CSR DATA 
031240 012702 000046 MOV #46,R2 
9023 031244 REPEAT 
031244 BSl:sssiss 
9024 031244 LET PASFLG :B= PASFLG + #1 ; INC LOOP COUNTER 
031244 105237 002264 INCB PASFLG 
;CHK BITS = 1 
9026 ;DISABLE ECC;DIAG CHK SET 
9027 031250 LET PASSNO := #0 ;INIT PASSNOCINNER LOOP COUNTER) 
031250 005037 002266 CLR PASSNO 
9028 031254 REPEAT 
031254 BS2:sssss3 
9029 031254 LET PASSNO := PASSNO + #1 ;INC LOOP COUNTER 
31254 005237 002266 INC PASSNO 
9030 031260 LET R4 := R2 ;COPY R2 TO R4 
031260 010204 MOV R2,R4 
9031 031262 LET CSR := R2 ;GET CSR DATA TO BE WRITTEN 
031262 010237 002150 MOV R2,CSR 
9032 031266 104425 LOADCSR ;WRITE SBE CHECK BITS TO CSR | 
9033 031270 LET (Ri) := #0 ;WRITE DATA AND CHECK BITS AT A=0 
031270 005011 CLR (R1) 
9034 031272 005105 COM R5 ;COMPLEMENT MASK 
9035 031274 010546 MOV R5,-(SP) ; SAVE RS ON STACK 
9036 031276 0416 BIC R4,(SP) ; CREATE AN XOR FUNCTION 
7 0313 0504 BIC RS,R ; 
9038 031302 052604 BIS (SP)+,R4 ; 
0313 LET CSR := R4 
0313 010437 002150 MOV R4,CSR 
9040 031310 104425 LOADCSR ;LOAD CSR WITH COMPLEMENT CHECK BITS 
9041 031312 104426 READCSR ;READ CSR FOR COMPLEMENT CHECK BITS 
9042 031314 LET R3 := CSR ;COPY CSR DATA TO R3 
031 013703 002150 MOV CSR,R3 
9043 031320 042703 020000 BIC #BIT13,R3 ;CLEAR ANY POSSIBLE INHIBIT MODE POINTER 
9044 031324 IF R3 NE R4 THEN ;READ CSR FOR PROPER CHECK BITS 
031324 020304 C »R 
031326 001412 BEQ L301 
9045 031330 LET ADDRESS : ; 
031330 010137 002034 MOV R1,ADDRESS 
9046 031334 LET GOOD := R4 ; 


SEQ 0255 


ee me mee - - 
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SEQ 0256 | 


‘MTPO44 SHIFTING CHECK BITS THROUGH THE CSR TEST 
| 031334 010437 002044 MOV R4,GO00D 
| 9047 031340 LET BAD := R3 ; 
031340 010337 002052 MOV R3,BAD 
9048 031344 SET HEADER ; 
031344 012737 177777 002612 MOV #-1,HEADER 
9049 031352 104463 PERR37 sERROR CALL ;;1LC; ;sREVB 
031354 END 
031354 L3O1l:sssiss 
9051 031354 005105 COM RS ;COMPLEMENT MA 
9052 031356 005711 TST (Ri) ;READ CHECK BITS AT A=0O INTO CSR 
9053 031360 000240 : 
031362 10442 READCSR ;READ CSR FOR CORRECT CHECK BITS 
9055 031264 040537 002150 BIC R5S,CSR ;MASK OUT CHECK BIT FIELD 
9056 031370 LET R4 := R2 ;GET CHECK BITS THAT WERE WRITTEN 
031370 010204 MOV R2,R4 
9057 031372 040 BIC R5S,R ;MASK OUT CHECK BIT FIELD 
9058 031374 IF R4 i. CSR ;ARE CHECK BITS THE SAME? 
031374 020437 002150 CMP R4,CSR 
031400 001413 BEQ L302 
9059 031402 LET GOOD := R4 ; 
031402 010437 002044 MOV R4,GO00D 
9060 031406 LET BAD := CSR ; 
031406 013737 002150 002052 MOV CSR,BAD 
9061 031414 LET ADDRESS := Rl ; 
031414 010137 002034 MOV R1,ADDRESS 
9062 031420 SET HEADER ; 
031420 012737 177777 002612 MOV #-1,HEADER 
9063 031426 104464 PERR40 sERROR CALL ;;ILC; ;sREVB 
9064 031430 END 
031430 L302:sisec3 
9065 031430 040502 BIC R5,R2 ;SHIFT CHECK BITS AND CR EATE NEW DATA FOR CSR 
9066 031432 IFB PASFLG EQ #1 ;SELECT FUNCTION 
031432 123727 002264 000001 CMPB PASFLG, #1 
031440 001002 BNE L303 
9067 ;D0 A FIELD OF ZEROS--->ONES 
9068 031442 006302 ASL R2 ;SHIFT CHECK BITS 
9069 031444 ELSE ;D0 A FIELD OF ONES --->ZEROS 
031444 000413 BR L304 
031446 L303:sssess 
9070 031446 510 COM R5 ; 
9071 031450 010546 MOV RS,-CSP) ; TAKE OUT CHECK BIT FIELD 
9072 031452 021 BIC R2,(SP) ; 
0314 04050 BIC R5,R2 ; 
9074 031456 052602 BIS (SP)+,R2 : 
9075 031460 30 ASL R2 ;SHIFT CHECK BITS 
031462 010546 MOV R5,-(CSP) ;PUT BACK CHECK BIT FIELD 
7 031464 040216 BIC R2,(SP) ; 
78 031466 040502 BIC R5,R ; 
9079 031470 052602 BIS (SP)+,R2 ; 
9080 031472 510 COM R5 ;COMPLEMENENT DATA PATTERN 
9081 031474 END 
03147 L304:ss53353 
9082 031474 LET R2 := R2 + #6 ;ADD 6 SO THAT WRITE ON CSR WILL ENABLE DIAG MODE 
031474 062702 000006 ADD #6,R2 
9083 031500 UNTILB PASSNO EQ #6 ;D0 ALL CHECK BITS 
031500 123727 002266 000006 CMPB PASSNO, #6 
031506 001262 BNE B52 





L4 
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MEMORY DIAG. MACRO , 
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031510 ES2:iss333 
9084 031510 LET R2 := #3706 ;REPEAT WITH FIELD OF ONES 
| 031510 012702 003706 MOV #3706,R2 
9085 031514 UNTILB PASFLG EQ #2 
031514 123727 002264 000002 CMPB PASFLG, ¢@2 
031522 001250 BNE 851 
031524 ESl:ssssss 
9086 031524 104503 CLRiCSR : 
9087 031526 005011 CLR (R1) 
9088 031530 062701 000100 ADD #100,R1 ;ALL 256 TO ADDRESS ILC; ;REVB 
9089 031534 UNTIL Ri EQ ENDADD ; ;ILC; ;REVB 
031534 020137 002562 CMP R1,ENDADD 
031540 001231 BNE B50 
031542 ES0:sssiss 
9090 031542 104423 CACHON ;TURN ON CACHE 
9091 031544 000207 RETURN ; 


| MTPO44 
9093 031546 


9094 
9095 
9096 
9097 
9098 


031546 
031550 


9100 

9101 031552 
31552 

9102 031556 

9103 031564 

9104 931572 
1572 

9105 031572 


9110 031606 
9111 031610 
610 

031616 

9112 etre t 
9113 031626 
626 


9119 644 
9120 031652 
031652 
031660 
9121 031662 
9122 031670 
031670 
9123 031676 
9124 031700 
0317 
9125 031700 
9126 031702 
031702 
9127 031710 
031710 
9128 031716 
031716 


104424 
104513 
005037 
012737 
012737 


032737 
001007 
012737 
013737 
104063 


023737 
001407 
013737 
012737 
104042 


005011 
012737 
012737 
023727 
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002266 
003744 
003144 


002266 


100000 


177777 
002150 


174033 
002150 


002150 
177777 


003604 
003004 
002266 


002044 
002150 


002150 


002612 
002052 


002150 
002044 


002052 
002612 


002044 
002150 
000002 





M4 
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SYNDROMES TO CSR ON DOUBLE BIT ERROR TEST>> 


{SESSSESESESESESEEESESESESSSESESSSESASSASSSSTRATESSSA RES AA RES EREETES EEE TES EEEe Es 
PO45 SYNDROMES TO C 


; *SUBTEST 


SR ON DOUBLE BIT ERROR TEST 


§ FSS SSSSSSSESSSSSSSSSS SESE SESS SS SSS SSS SSS SSESSASSSSSSSSSSSSSSSSSSSASSSSSE SESS SSe ees 


; CSR. 
CACHOFF 
CBREG 
LET PASSNO 
LET GOOD : 
LET CSR 
REPEAT 

INC PASSNO 

LOADCSR 

LET (R1) := #0 

CLRICSR 

TST (Ri) 

READCSR 

IF #81115 OFF.IN CSR 


:= #0 
:= $3744 
:= #3144 


SET HEADER 

LET BAD := 

ERROR +63 
END 


CSR 


SYNREG 

READCSR 

NOP 

BIC #tC3744,CSR 

IF CSR NE GOOD THE 
LET BAD := CSR 
SET HEADER 
ERROR +42 

ND 

CLR (R1) 

LET GOOD := #3604 

LET CSR := #3004 

UNTIL PASSNO EQ #2 


; THIS TEST CHECKS TO SEE IF THE DOUBLE BIT ERROR INDICATOR IS SET 
ON A DOUBLE BIT ERROR AND 


THE CORRECT SYNDROMES ARE LATCHED INTO THE 


;TURN OFF CACHE 
;ENABLE CHECK/SYNDROME BIT REGISTER 
;CLEAR LOOP COUNTER 


CLR PASSNO 
;GO0D DATA 
MOV #3744,G000 
;DBE CHECK BITS FOR CSR 
MOV #3144,CSR 
BS3S:ssisss 


;WRITE DBE CHECK BITS TO CSR 
;WRITE ZEROS AND DBL ERROR CHK BITS A=0 


CLR (R1) 

;CLEAR CSR OUT 

;READ A=0 TO GET DOUBLE BIT ERROR 

;WAS UNCORRECABLE ERROR BIT SET??? 

BIT #BIT15,CSR 
BNE L310 

F MOV #-1,HEADER 
MOV CSR,BAD 


;BIT NOT SET 

L310:sssss3 
;ENABLE SYNDROME BIT REGISTER 

;sREAD CSR FOR CORRECT SYNDROME BITS 
;DEBUG AIDE 


;MASK SYNDROMES OUT 
CHECK IF DOUBLE ERROR BIT IS SET 
CMP CSR,GOOD 


BEQ L311 
MOV CSR,BAD 


;BAD DATA 

L3L1:ssssss 
;CLEAR LUT 

: REPEAT WITH MULTIPLE ERROR ier og 


;MULTIPLE ERROR CHECK BITS 


$3604, GOOD 
MOV #3004,CSR 
: CMP PASSNO, 02 


SEQ 0258 


THIS TEST IS THEN REPEATED WITH MULTIPLE ERROR CHECK/SYNDROME BITS 


" CVMUAAO MSV11-J 
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, MTPO45 SYNOROME S TO CSR ON DOUBLE BIT ERROR TEST 


031724 
031726 
9129 031726 
9130 031730 
9131 031732 


001322 
104503 CLRICSR ; 
104423 ACHON : 


C 
000207 RETURN 


BNE B53 
ESS:sssszs 


SEQ 0259 | 


wm eo e—_— — 


ee ee ee 


| BS 
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032056 
9166 032060 


IF PASSNO EQ #1 


;WRITE CSR 


9133 031734 MTPO46: SUBTST <<MTPO46 CHECK SINGLE BIT ERRORS WITH ECC DISABLED>> 
5 9OSF6SS6SFSSSESESESSSESESESSES SEES SSESSREAESEE SERRE SSEREE SERRE SEEE EEO EE EE SEE 
;*SUBTEST CHECK SINGLE BIT ERRORS WITH ECC DISABLED 
esi Writiitititititiiit itt tti ttt itt ttt Titi littl ti ttiitiiiiiTitt 
9135 ; THIS TEST CHECKS TO SEE THAT FOR EACH BIT OF A DATA WORD THAT A SBE 
9136 ; IS TREATED LIKE A UNCORRECTABLE ERROR WITH ECC DISABLED AND TRAPS 
HEH ; ARE DETECTED. 
; 
9139 031734 005037 002266 CLR PASSNO ;CLEAR OUTER LOOP COUNTER 
9140 031740 104424 CACHOFF ;TURN OFF CACHE 
9141 031742 REPEAT ; 
031742 BS4:sissa3 
9142 031742 LET PASSNO := PASSNO + #1 : 
031742 005237 002266 INC PASSNO 
9143 031746 005000 CLR RO ;CLEAR ees 
9144 031750 105037 002264 CLRB PASFLG ;CLEAR PASFLG 
9145 031754 104513 CBREG ;ENABLE CHECK/SYNDROME BIT REGISTER 
9146 031756 REPEAT ; 
0317 BSS: sissies 
9147 031756 LET PASFLG :B= PASFLG + #1 ; INCREMENT LOOP COUNTER 
0317 105237 002264 INCB PASFLG 
9148 031762 LET R4 := @-1 ; INDEX TO SINGLE BIT ERROR TABLE 
0317 012704 177777 MOV #-1,R4 
9149 031766 LET NOPAR := #1 ;ENABLE PARITY ACTION 
7 012737 000001 002076 MOV #1,NOPAR 
9150 031774 LET BITNO := #0 ;CLEAR INNER LOOP COUNTER 
031774 005037 002324 CLR BIT 
9151 032000 IFB PASFLG EQ #1 ;SELECT DATA TO BE CORRECTED BY PASSNO 
032000 123727 002264 000001 CMPB PASFLG, #1 
032006 001003 BNE L313 
9152 032010 LET RS := #1 ;DATA=0;BIT TO BE CORRECTED IS A ONE 
032010 012705 000001 MOV #1,R5 
9153 032014 ELSE ; 
032014 000402 - 41314 
032016 L313:; sees 
9154 032016 LET RS := #177776 ;DATA=177776;B1IT TO BE CORRECTED IS A ZERO 
032016 012705 177776 MOV #177776,R5 
9155 032022 END ; 
032022 L314:sssss3 
9156 032022 REPEAT : 
O22 BS6: 355553 
9157 032022 LET PARCNT := #0 ;CLEAR PARITY COUNTER 
032022 005037 002072 CLR PARCNT 
9158 032026 005237 002324 INC BITNO ; INCREMENT BIT POINTER 
9159 032032 LET R4 := R4 «+ #1 ;POINT TO NEXT SET OF CHECK BITS 
0 005204 NC R4 
9160 032034 LET R2 :B= PTABLE(R4) ;GET NEXT SET OF CHECK BITS 
032034 116402 030276 MOVB PTABLE(R4),R2 
9161 032040 072227 000005 ASH #5,R2 ;SHIFT TO LINE UP IN CSR 
9162 032044 052702 BIS #BIT2!B1T1, R2 ;ENABLE DIAG MODE 
9163 032050 LET CSR := R2 ;GET CHECK BITS TO BE WRITTEN 
032050 010237 002150 MOV R2,CSR | 
9164 032054 104425 LOADCSR sLOAD CSR WITH DATA 
9165 032056 LET CR1) := RO ;sWRITE DATA TO TEST ADDRESS 
010011 MOV RO,(R1) | 
| 
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MTPO46 CHECK SINGLE BIT ERRORS WITH ECC DISABLED SEQ 0261 


032060 023727 002266 000001 CMP PASSNO, ¢1 
032066 001002 BNE L315 
9167 032070 104471 ECCiDIS ;FIRST PASS ;ECC DISABLE.NO PBL 
9168 032072 SE : 
032072 000401 R L316 
9169 032074 104507 ENA1SBE SECOND PASS ;ECC DISABLE’ OBL ENABLED 
; a : 
| 9170 032076 END ; 
032076 L316:isisae 
9171 032076 005711 TST CR1) ;CORRECT SBE 
172 0321 004737 032220 CALL CHKTRP ;CHECK FOR CORRECT TRAP 
9173 032104 104426 READCSR ;READ THE CSR FOR UNCORRECTABLE ERROR 
9174 032106 IF #B1T15 OFF.IN CSR :I1S UNCORRECTABLE ERROR BIT SET???? 
0321 032737 100000 002150 BIT #B1T15,CSR 
032114 001007 L317 
9175 032116 LET BAD := CSR : 
013737 002150 002052 MOV CSR,BAD 
9176 032124 SET HEADER : 
032124 012737 177777 002612 MOV #-1,HEADER 
9177 032132 104045 ERROR +45 ; 
9178 032134 END : 
032134 L317:sssssi 
9179 032134 104503 CLRiCSR 
9180 032136 005011 CLR (R1) ‘CLEA RL 
9181 032140 IFB PASFLG EQ #1 ; SHIFT New DATA DEPENDING ON an oy 
032140 123727 002264 000001 CMPB PASFLG, #1 
032146 001002 BNE L320 
9182 032150 305 ASL R5 ;SHIFT BITNO TO THE LEFT 
9183 032152 LSE ; 
032152 000402 BR L321 
032154 L320:ssssa3 
9184 032154 000261 SEC ;SET CARRY BIT AND...... 
9185 032156 006105 ROL RS s;ROTATE LEFT 
9186 032160 END : 
032160 L321:ssisss 
9187 032160 UNTIL BITNO EQ #16. ;UNTIL ALL BITS ARE DONE 
032160 023727 002324 000020 CMP BITNO, #16. 
0321 001315 BNE 856 
03217 ES6:; seeee 
9188 032170 005100 COM RO ;COMPLEMENT DATA AND REPEAT 
9189 032172 UNTILB PASFLG EQ #2 ; UNTIL 2 PASSES ARE COMPLETE! 
032172 123727 002264 000002 CMPB PASFLG, #2 
032 001266 NE 655 
0322 CS: ssssse 
9190 032202 UNTIL PASSNO EQ #2 ; 
0322 023727 002266 000002 CMP PASSNO, #2 
032210 001254 BNE 654 
032212 ES4:sssac3 
9191 032212 104503 CLRICSR ; 
9192 032214 104423 CACHON ; TURN CACHE 
9193 032216 000207 RETURN . 
9195 
9196 032220 CHKTRP: IF PASSNO EQ #1 sPASS 1 CHECK FOR NO TRAP 
032220 023727 002266 000901 CMP PASSNO, #1 
001011 BNE L325 


032226 
9197 032230 


IF PARCNT EQ #1 


nnn A TS OE eS —_aeeoe ose — 
A —ee 


—- «<_< 
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032230 
032236 

9198 032240 
40 


032252 
9202 032252 
032252 
032260 
9203 032262 
032262 
9204 032270 
9205 032272 
032272 
9206 032272 
032272 
9207 032272 


023727 
001004 


012737 
104057 


090410 
023727 
001404 


012737 
104064 


000207 


002072 


177777 


002072 


177777 


000001 
SET HEADER 
ERROR +57 


002612 


ELSE 
IF PARCNT NE #1 
GO00001 
SET HEADER 
ERROR +64 
ND 


002612 


END 
RETURN 


L326: 


L325: 


L330:;; 


L327: 


CMP PARCNT, ¢1 
BNE L326 
MOV @-1,HEADER 
eeeeis 
BR L327 
bee eee 
CMP PARCNT, #1 
BEQ L330 


A——— — <a «++ 
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SEQ 0263 | 





| 9209 032274 MTP047: SUBTST <<MTP047 NO CSR UPDATE ON SBE WITH EXSISTING DBE>> 
| 5 EERE EEEEEEEE EERE SERESEEESEEEEEEEREEEEREEEEEEEEEEEEEEEEEEEEREREEREE EERE REE O EE 
; *SUBTEST MTPO047 NO CSR UPDATE ON SBE WITH EXSISTING DBE 
oinn j PPSeeeeeesseeeseeeseeesseeeeeeeeeeeeeeeeeeeeeesoeTEEeeeeeeeeseeeeeeeeeeseTees 
9211 ; THIS TEST CHECKS TO SEE THAT THE CSR CONTENTS WILL NOT CHANGE 
9212 ; WITH A SINGLE BIT ERROR WHEN A DOUBLE BIT ERROR ALREADY 
asta ; EXISTS. 
9215 032274 104424 ca CHOFF ; TURN OFF CACHE 
9216 032276 LET R4 := BANK :;GET BANK NUMBER 
032276 013704 002102 MOV BANK,R4 
9217 032302 072427 11 ASH #9.,R4 sSHIFT INTO PLACE 
218 032 042704 170037 BIC #tC7740,R4 ;MASK OUT UNWANTED BITS 
9219 032312 052704 100000 BIS #B1T15,R4 SET G DATA 
9220 032316 104513 CBREG ; ENABLE CHECK/SYNDROME BIT REGISTER 
9221 032320 LET CSR := #3144 ;CHECK BITS FOR DOUBLE BIT ERROR 
032320 012737 003144 002150 MOV #3144,CSR 
9222 032326 104425 LOADCSR : 
9223 032330 LET (R11) := #0 ;WRITE DBE CHECK BITS . 
032330 005011 CLR (R1) 
9224 032332 LET CSR := #104 ;WRITE SBE CHECK BITS 
032332 012737 000104 002150 MOV #104,CSR 
9225 032340 104425 LOADCSR ; 
9226 032342 LET (R2) : ;WRITE SBE CHECK BITS AT ADDRESS + 4K 
032342 005012 CLR (R2) 
9227 032344 104503 CLRiICSR ;CLEAR CSR 
9228 032346 005711 TST CR1) : READ DBE LOCATION 
9229 032350 104426 READCSR ;READ FOR CSR DBE INDICATOR 
9230 032352 042737 020000 002150 BIC iss, . ;CLEAR INHIBIT MODE POINTER 
1 032360 IF CSR NE R ; 
032360 023704 002150 CMP CSR,R4 
032364 001411 BEQ L331 
9232 032366 LET BAD := CSR ; 
32366 013737 002150 002052 MOV CSR,BAD 
9233 032374 LET GOOD := R4 ; 
032374 010437 002044 MOV R4,GO00D 
9234 032400 SET HEADER ; 
032400 012737 177777 002612 MOV #-1,HEADER 
9235 032406 104063 ERROR +63 ; 
9236 032410 END : 
032410 L331:sssss3 
7 032410 052704 000020 BIS #20,R4 ;SET BIT IN GOOD DATA 
9238 032414 005712 TST (R2) ;READ SBE 
9239 032416 104426 READCSR ; READ CSR FOR NO CHANGE 
9240 032420 042737 020000 002150 BIC AP a. ;CLEAR INHIBIT MODE POINTER 
9241 032426 IF CSR NE ; 
032426 023704 002150 CMP CSR,R4 
032432 001411 BEQ@ L332 
9242 032434 LET BAD := CSR ; 
013737 002150 002052 MOV CSR,BAD 
9243 032442 LET GOOD := R4 ; 
032442 010437 002044 MOV R4,G00D 
9244 032446 SET HEADER ; 
032446 012737 177777 002612 MOV #-1,HEADER 
9245 032454 104051 ERROR +51 
9246 032456 END ; 


-_——— ee ee ee oe ee eee oe 


— —_—_—_——— |) Ee ~~ ee —_——- — _ a 


eae 
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'MTPO47 NO CSR UPDATE ON SBE WITH EXSISTING DBE SEQ 0264 
032456 L3S2:ssssc3 
9247 032456 104503 CLRICSR CLEAR 1 CSR 
9248 032460 005011 CLR (R1) ; 


| 9249 032462 005012 CLR (R2) 


9250 032464 104423 CACHON | ‘TURN ON CACHE 
9251 032466 000207 RETURN 


MISC 


9253 
9254 
9255 032470 


9256 032470 
9257 032472 
9258 032474 
9259 032476 


9260 
9261 032500 


9262 032500 

032500 
9263 032502 
9264 506 


620 

9285 032624 
032624 

9286 032626 


- — @ —_——_——— <<. ci, a ate ae 


010004 
010103 
010205 


010037 


012600 
000207 


CVMJAAO MSV11-J MEMORY DIAG. 
SUBROUTINES 


025036 


—_—_—— ee ee —_—_—=— = — - — - 
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002616 
002616 


002616 
002616 


-SBTTL MISC SUBROUTINES 


REGCOPY:SUBTST <<SUBR COPY RO TO R4,R1 TO R3, & R2 TO R5>> 
5 EREEEAEEESEEEEEEREEERERE SESE SERRE SESE EERE EES EEEEEEERE EEE SEER EER EEE EE HEE EE EES 


; *SUBTEST COPY RO TO R4,R1 TO R3, & R2 TO RS 

} ee a ee ~ 
MOV R1.R3 
MOV R2.R5 
RET 


FLIPWARN:SUBTST <<FLIP WARNING CONSTANTS IN WORST CASE NOISE TESTS>> 
5 RRR EEEE EERE EERE EERE EERE EER ERE EERE REE EERE REE EERE EERE SEES EEE EEEEE EE EEE EERE ETE 


; *SUBTEST FLIP WARNING CONSTANTS IN WORST CASE NOISE TESTS 
s ee 
MOV RO,-(CSP) 
INC FLIPLOC 
BIC #tC3,FLIPLOC 
CMP #1,FLIPLOC 
BEQ 1$ 
CMP #2,FLIPLOC 
BEQ 2$ 
CMP #3,FLIPLOC 
BEQ 3$ 
CLR RO 
MOV ONES ,R4 
BR 4$ 
1$: CLEAR RO,R4 
CLR RO 
CLR R4 
BR 4$ 
MOV ONES ,R4 
BR 4$ 
3$: MOV #401,RO0 
MOV #401 ,R4 
4$: MOV RO, WARN2 
MOV RO,WARN3 
MOV 0,W 
MOV RO,WARNS 
POP 0 
MOV (SP)+,RO 
RETURN 


SEQ 0265 


— ——_— == oe é 


em emu “aaa. "Ae, Aa, 


| 
; 
; 
; 


9288 032630 


9 

9290 032630 104415 
9291 032632 012700 
9292 032636 

9293 032642 012737 
9294 032650 
9295 032656 
9296 032662 

9297 032670 104416 
4 032672 000207 


| aes MSV11-J MEMORY DIAG. 


BACKGND : SUBTST 


me - _- = ——- ——— 


H5 
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LIP WARNING CONSTANTS IN WORST CASE NOISE TESTS 


<<SUBR WRITE BACKGROUND>> 


§ FEES ESSSES ESSERE S ESSE SESS SESS SSSSE RESETS SERS ESSERE EEREEEKEEERERERE REE RE REE EES 
GROUND 


;*SUBTEST 


WRIVE BACK 


§ FESSESSEESESESESESESESES SSS S ESE SSAEESERESEE SESE SEES EEE EREREEEEE EERE CER ECE EES 


;WRITES DATA FROM R2 
VREG 


#SIZE,R1 

#207 ,MTP000+4 ;WARNING PUTTING “RETURI.” AFTER WRITE 
aHTP O00, » SUPDOADD 

#240 ,MTPO000+4 ;RESTORE ‘NOP’ AFTER WRITE 


SEQ 0266 


_—_— —_ —_—————— ee 


/CVMJAAO MSV11-J MEMORY DIAG. 
SUBR WRITE BACKGROUND 


9301 032674 


9302 
9303 
9304 


9305 

9306 032674 
9309 032706 
9310 032710 


9311 032714 
9312 032720 


013702 
016203 
000303 

303 


006 

042703 
010337 
000207 


002104 
002664 


177741 
002152 


ee ee 


is 
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GETCSR: SUBTST <<SUBR GET CSR INFORMATION FROM CONFIGURATION TABLE>> 

5 EREEEEERESEEEEE SEES SEREESESEEEE SESE EERE EERE EER ERESEEREREEE REESE REET E TERRE EES 
;*SUBTEST SUBR GET CSR INFORMATION FROM CONFIGURATION TABLE 

5 EeeeSEEREEEERE EERE EEEE ERE SES EEEESEE ESSE ESSE EESERESE RESET ERE RE RE EERE EEE EERE E EES 


S OUTPUT : CSRNO = CSR NUMBER 


MOV BANKINDEX ,R2 ;GET INDEX INTO CONFIG TABLE 
V CONFIGCR2),R3 ;MOV IT INTO R3 

SWAB R3 ; 

ASL R3 ; 

BIC #tC36,R3 ;CLEAR OFF SOME BITS 

MO R3,CSRNO ;SAVE CSR NUMBER 


LE A anne 
er LT 


SEQ 0267 


~———-——— ee 


| CVMJAAO MSV11-J MEMORY 
| SUBR 


| 


-— 


9315 032722 


9316 032722 
032722 


320 
9321 032760 
ose 032766 


323 
9324 032774 
032774 
9325 033000 
033000 


9326 033004 
033004 


9327 033010 
oss 033016 


9330 oteeee 


9339 033072 
033072 
9340 033076 
033076 
9341 033102 
033102 


9342 033106 
033106 


104401 
022737 


002006 
032777 
001402 
000137 
012700 
010004 
005001 
005003 
104401 
004737 
022737 
002106 
104401 
104401 
104401 
104401 


104401 


DIAG. 


000020 
033242 
000074 


065367 
033336 
000060 
002660 
066076 
065570 
002660 


066076 


mw Oe ee ee ee 


I MACRO VOS.01b Feige 
GET CSR INFORMATION FROM CONFIGURATION T 


000060 
000062 


177776 
147646 


002556 


147610 


002556 


PCONF IG: SUBTST 
{EERE ESEEEEERERESEEES SEES ESSE SESS SERRE REESE SEES ERE EE EEEEEEERERE REE EERE ROE EES 


;*SUBTEST 
’ 
5 EREEEEEEEEEEEEEEEEEESEESESER ERE EEE ERE SESE SEES ESET ERE REECE ER ERE EEE EEE SEES 


NOOU: 


PUSH 


TYP 
TYPEIT 


igey 15-Feb-85 16:10 Page 292 


ee - _ --—_— = - 


J5 


SEQ 0268 
<<SUBR PRINT CONFIGURATION MAP>> 


SUBR PRINT CONFIGURATION MAP 
MOV TKVEC, -(SP) 
MOV TKVEC+2,-(SP) 
MOV RO, -(SP) 
SP ,PCONFS ;SAVE LAST GOOD SP 
#PCONF 2, TKVEC 
#340, TKVEC+2 
a$TKB,RO 
#B1T7,PSW 
#BIT6,a$TKS 
MSGOO1 
»MSGO0O1 


sKILL ANY OLD INTERRUPT 
;LOWER CPU PRIORITY TO 140 
;ENABLE KEYBOARD INTERRUPTS 


CRF 
#60 ,LASTBANK 


NOOJ 

PAPER ON TERMINAL GOTO 1$ 

SET.IN @SWR THEN JUMPTO PCONF1 
BIT #SW4,aSWR 
BEQ L333 
JMP PCONF 1 


#60. ,RO 

RO,R4 

R1,R3 
CLR Ril 
CLP R3 

MSGO04 

»MSGO04 

RF 


TCONFIG ;GO TYPE CONFIGURATION (1ST HALF) 
#60 , LASTBANK 
PCONF 2 


;PRINT SPACE(S) 


MSGO17 ;PRINT SPACE(S) 


»MSG017 


— a 


— ttm amma ae ma ae eae 


_ CVMJAAO MSV11-J MEMORY DIAG. 
' SUBR 


PRINT CONFIGURATION MAP 


9343 033112 
033112 


9344 033116 
033116 


9345 033122 
033122 


9346 033126 
033126 


9347 033132 
3136 


9353 033160 
033160 


9354 033164 
033164 


9355 033170 
033170 


9356 033174 
033174 


9357 033200 
033200 


9358 033204 
033204 


9359 033210 
033210 


9360 033214 
033214 


9361 033220 
936 22 


9365 

9366 033240 

9367 

9368 033242 

9369 033246 

9370 033250 
033250 
033252 


104401 
104401 
104401 
104401 


012701 
010103 
004 


104401 
104401 
104401 
104401 
104401 
104401 
104401 


104401 
012701 


012700 
010004 


005001 
005003 


065656 


002660 


066076 


065744 
000360 
033336 
000170 
002660 
066076 
066041 
002660 
066076 
066043 
002660 


066076 


066045 
000740 
000010 
033336 


000170 


002556 NOOJ1: 


PCOMF 1: 


KS 
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;PRINT SPACE(S) 


R 
#60 .#2%2,R1 
R1,R 


TCONFIG 
#170,LASTBANK 
PCONF 2 


;PRINT SPACE(S) 


;PRINT SPACE(S) 


;PRINT SPACE(S) 


#120. ,RO 
RO,R4 
R1,R5 


CLR Ri 
CLR R3 


—- -_——_——_— — 


SEQ 0269 


ee 
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PRINT CONFIGURATION MAP SEQ 0270 
9371 033254 TYPE MSGO14 ; SPACE 
033254 104401 066060 TYPEIT ,MSGO14 
-DSABL CRF 
9372 033260 TYPE MSGO11 
033260 104401 065656 TYPEIT ,MSGO11 
-DSABL CRF 
9373 033264 TYPE MSGO04 
033264 104401 065367 TYPEIT ,MSGO04 
-DSABL CRF 
9374 033270 TYPE MSGO12 
033270 104401 065744 ys 73) ne 
9375 033274 004737 033336 CALL TCONF IG 
HH 033300 000721 BR Ji 
9378 033302 013706 033334 PCONF2: MOV PCONFS,SP ;RESTORE STACK 
9379 033306 042777 000100 147326 Bic #8116, a$TKS 
9380 033314 117700 147324 MOVB a$TKB,RO ;READ CHAR TO KILL FLAG 
9381 033320 POP RO, TKVEC+2, TKVEC 
033320 012600 )+,RO 
033322 012637 000062 MOV (SP)+-, -TKVEC® 2 
033326 012637 000060 KVEC 
+ 033332 20 RETURN 
9384 033334 000000 PCONFS: O ;STACK SAVED HERE! 


_ CVMJAAO eyed - J MEMORY DIAG. 
' SUBR 


PRINT 
9387 033336 


9400 033336 
9401 033344 

033344 
9402 033350 
9403 033356 
9404 033360 

033360 
9405 033364 
9406 033366 

033366 
9407 033372 
9408 033376 
9409 033400 
9410 033402 


012737 
104401 


032761 
001403 


104401 
000402 
104401 
062701 


077014 
010400 


010301 


CONFIGURATION MAP 


M5 
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000340 177776 


065475 
000001 


066056 


066060 
000004 


002664 


SUBTST <<SUBR TYPE CONFIGURATION>> 
{EESEEEEEESESESESESSSSSESESESESESSSERERESESEER ERATE E SEER EERE AREER EERE EE SE 
;*SUBTEST TYPE CONFIGURATION 
{SRSSEEESESSSESESSSASSSSSSSSSESES ESSE SSEESESESEEEEEEEREREER TREES E EEE EES 
5 EEEEEEEEEEESEAERERESESSESES EASES ESERESESEREEEEAEREEREEERE RARER RRR EEE SEES EEE 


;CALL: MOV oN, RO ;N=NUMBER OF CHARACTERS 
; MOV RO, BA CKUP 
; MOV #K .R1 fey CONSTANT 
; MOV R1,R3 
$ CALL TCONFIG ACTUAL CALL 
; RETURN ; ONLY RETURN 
PUTT TTT TTT ETT TT TTT TTT TTT TTTTTTET TTT TT TCT TTT TTT TTT TTTT TTT TTT TTT TT TTT 
er titiiiii ts 
;** ERROR «« 
er tii iti tit 
TCONF IG: MOV #340 ,PSW ;DISABLE INTERUPTS 
TYPE MSGOO5 
TYPEIT ,MSGOO5 
-DSABL CRF 
1$: BIT #BITO, CONFIGCR1) ;ERROR ON THIS BANK? 
BEQ 2$ ;NO - KIP 
TYPE MSGO13 ; PRINT “¥* 
TYPEIT ,MSGO13 
DSABL ng 
2$: TYPE MSGO14 ;PRINT SPACE 
TYPEIT ,MSGO14 
. DSABL F 
3$: ADD #4,R1 ;BUMP POINTER 
SOB RO,1$ sLOOP UNTIL DONE 
MOV R4,RO 
MOV R3,R1 


SEQ 0271 


— — ——— <<a. a: “iit. ta 


| CVMJAAO MSV11-J MEMORY DIAG. 


— -_———- 
. 


SUBR 


94 
9428 033440 
033440 


9429 033444 


3500 

9437 033502 
033502 

ttt ty 

9438 033510 
9439 033516 
033516 

ett i 

9440 033520 
9441 033526 
Oetase 

9442 033526 
033526 
033530 
9443 033530 
9444 orate 
033536 


033540 
033546 
033546 


9445 0 
ory Be 


9448 033552 
033552 


012737 
112737 


104401 


00 
010301 


104401 
033761 
001432 
016105 
000305 


032705 
001413 
032705 
001404 
112737 


000403 
112737 


000403 
112737 
000403 
112737 
104401 


005737 


TYPE CONFIGURATION 


000340 
000040 
066062 


002372 


065544 
002106 
002666 
177770 
000003 
000001 
000002 
000120 


000105 


002372 
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177776 TCFIGi: 
066062 


002664 TCFIG2: 


066062 


066062 


066062 


066062 17%: 
8$: 





3 OOOSSS844444484 


3;#* INTERLEAVE «« 
5 OSS94644648844 


mm mr me —_—_— . _ — ee 
; 


SEQ 0272 | 


;THIS IS AN ENTRY POINT FROM ERROR REPORTS 


MOV #340 ,PSW ;DISABLE INTERUPTS 

MOVB ¢' ,MSGO1S ;MOVE A BLANK IN TO BE PRINTED 

TYPE MSGO15 
TYPEIT a | 


. DSABL 
IF NOTAB NE #0 THEN $RETURN 


MOV R4,RO 
MOV R3,R1 
eititiiiititiiitt: 

;*#* MEMORY TYPE «#« 
Pittiiititiiititt 

LSB 

YPE MSGO09 

TYPEIT ,MSGOO9 

.OSABL CRF 
BIT CPUBIT , CONFIG(R1) 
BEQ 17 
MOV CONFIG+2(R1),R5 
SWAB RS 
BIC #tC7,R5 

CMP RS,#3 

GT 


B 17 
IF #BITO SET.IN R5 


IF @#BIT1 SET.IN RS 


MOVB #'P,MSGO15 
ELSE 
MOVB #'E,MSGO15 
END 
ELSE 
MOVB #'P,MSGO15 
END 
BR 8$ 
MOVB #' ,MSGO1S 
TYPE MSGO15 
ys »MSGO15 


DSABL CRF 
IF NOTAB NE #0 THEN $RETURN 


TST NOTAB 

BEQ L334 

RTS PC 
L334:sisses 


;GET MEMORY TYPE 
‘CLEAR wt gs AE a errs 
;IS ITA oor MEMORY TYPE 
s IF IF SO BRANCH! !!!!3! 
;IS IT AN ECC MEMORY??7?? 
BIT #BITO,RS 


BEQ L 
;IS IT A MSV11-P OR A MSV11-J??? 
BIT +. eel 


;IT IS A MSV11-P 
; 
BR L337 
L336:ssisas 
;IT IS A MSV1Li-J 


; 
L3S7ssssaas 
L340 


BR 
Laas: ssssae 
sIT IS A MSV11-L/P 


‘ L340: :s3334 


TST NOTAB 





CVMJAAO MSV11-J MEMORY DIAG 
SUBR 


TYPE CONFIGURATION | 


033556 
033560 


033562 
9449 033562 
9450 033566 
9451 033570 
9452 033572 
9453 
9454 
9455 
9456 
9457 
9458 033574 
033574 


9459 033600 
9460 033606 


9475 033674 
9476 


9477 
9478 


9479 
9480 033676 
033676 
9481 033702 
9482 033706 
9483 033710 
9484 033716 
033716 
9485 033722 
9486 033724 
033724 


9487 033730 
| 9488 035734 


001401 
000207 


104401 


112737 
S780 


010400 
010301 


104401 
105761 
100006 
112737 
104401 
000402 
104401 


062701 
077016 


066064 
000040 
002664 
000002 
170377 
000011 
000007 
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066062 TCFIGS: 


10$: 
16$: 


11$: 


066062 
13$: 


14$: 


15$: 





ADD oR1 
SOB RO, TCFIG2 
MOV »RO 
MOV R3,R1 
DSABL LSB 
5 *eeeeeees 
;#* CSR ee 
5 eeeeeeees 
YPE MSGO16 
TYPEIT ,MSS016 
-DSABL CR 
MOVB #' ,MSGO15 
MOV CONFIGC(R1),R5 
BIT #BIT1,R5 
BEQ 16$ 
BIC #tC7400,R5 
SWAB RS 
CMP #9.,R5 
BPL 10$ 
ADD #7,R5 
ADD Rk 
MOVB RS,MSGO15 
TYPE MSGO15 


YP 
TYPEIT ,MSGO15 
RF 


-DSABL C 
IF NOTAB NE #0 THEN $RETURN 


L34lissssas 
;BUMP POINTER 
;L00P UNTIL DONE 


sMAKE ASCII 
;PLUG INTO MEMORY 


TST NOTAB 
BEQ L342 
RTS PC 


;BUMP POINTER 


ADD #4,R1 
SOB RO, TCFIG3S 
MOV R4,RO 
MOV R3,R1 
Srtiiitititiii?: 
;** PROTECTED +# 
Pititiitittii tit 
TYPE MSGO10 
TYPEIT ,MSGO10 
.OS CRF 
TSTB CONF IG(R1) 
BPL 14$ 
MOVB #'P,MSGO15 
TYPE MSGO15 
TYPEIT ,MSGO15 
DSABL CRF 
R 15$ 
TYPE MSGO14 
TYPEIT ,MSGO14 
DSABL C 

#4,R1 


S08 RO.11$ 


;BANK PROTECTED? 
3N SKIP 


;PRINT SPACE 


;BUMP POINTER 
;LOOP UNTIL DONE 


> 
™w 
= 
= 
Ld 
. 
s 
ee 
eee ae 
‘ 


ree ee 


- ee 
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_ SUBR TYPE CONFIGURATION 


9489 033736 010400 MOV R4,RO 
9490 033740 010301 MOV R3,R1 
9491 033742 000207 RETURN 


SEQ 0274 


— 


—-— 


PARITY 

9494 

9495 

9496 

9497 

9498 

9499 

9500 

9501 

9502 

9503 

9504 

9505 

9506 

9507 033744 

9508 033752 
033754 
033760 

9511 033762 

9512 033770 


9523 034042 
4042 
034046 


ee 


| SReRsAne 1 LT " MEMORY DIAG. 


ERROR HANDLER 


022737 
001003 
005237 
000002 
022737 
001013 
012737 
004737 
063716 
042766 
000002 
022737 
001003 
013716 
000002 
004737 


005237 
104032 


009001 
002072 
000002 


177777 


002304 
034152 
002064 


| ee - ~_-—— _ —— —o» 
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002076 


002076 


002144 


000002 
002076 


-SBTTL TRAP PARITY ERROR HANDLER 
{EREREEEEEEEEEEE EERE EERE SEES SE SESE EERE EEE EERE ERE RE EERE EERE EEE REESE EE HERR EEE RED 
;VECTOR TO HERE FROM TRAPS TO 114 
; IGNORE ERRORS BUT COUNT IF NOPAR FLAG = 1. 


§ ESSERE SEES SESS SSERESES EERE SESEEERESAREEREKERAEEE EKER EREEES ERE RE RE RE RES 


CODE ACTION 
; -"§" —_- BRINT UNEXPECTED PARITY TRAP 
; 1 COUNT ERROR 
; 2 SET "ABORT" / SETUP “BADPC” / RETURN VIA PCBUMP 
; 3 RETURN VIA *PARTHERE” 
PARITY: CMP #1,NOPAR ;COUNTING PARITY ERRORS? 
BNE 1$ :N KIP 
INC PARCNT PARITY ERROR COUNTER + 1 
1$ CMP #2,NOPAR sACTION CODE = 2 ? 
BNE 2$ ;NO - SKIP 
SET ABORTFLAG YES 
MOV #-1,ABORTFLAG 
CALL § BADSTACK ;FIND BAD SP,PC,PSW OFF STACK 
ADD PCBUMP , (SP) ;UPDATE RETURN PC 
BIC #BIT2,2(SP) ;SHOW FAILURE BY .NE. 
2$: CMP #3,NOPAR sACTION CODE = 3 ? 
BNE 3$ ;NO - SKIP 
HOV PARTHERE , (SP) 
3$;: CALL § BADSTACK ;FIND BAD SP,PC,PSW OFF STACK 
FATAL 32 
NC FATAL$ ;SET FATAL INDICATOR 


ERROR +32 
-DSABL CRF 


SEQ 0275 


dee , 


_~-_— ——— 


_—_——-—  — 


034132 
034136 


034140 
034144 
034144 
034150 


034152 


9564 034152 
9565 034156 
9566 034164 
9567 034172 
9568 034200 


~ 


022737 
001011 
005237 
022737 
001002 
010037 
000002 
005237 
012701 
000002 


004737 
005237 
104006 


004737 
005237 
104007 
004737 


605237 
104005 


000207 


| SeRRIAAS MSV11-J MEMORY DIAG. 


000001 


002070 
00000 


1 
002034 
002070 
000001 


034152 
002064 


034152 
002064 


034152 
002064 


002026 


000002 002026 
002 


000002 


-— —— 


eee re mm —— = . _— -~—- = 
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NON-EXISTANT MEMORY (HOLES) HANDLER 


002100 


002070 


022 


000004 002032 


.SBTTL TRAP NON-EXISTANT MEMORY CHOLES) HANDLER 
pen eg ye nnn sg ye a a 9 0 eee eeaeeeeeeeeneeenenaten 
;VECTOR TO es (SOMETIMES) FROM TRAPS TO 4 
; ODE IN NONEM DETERMINES ACTION AS FOLLOWS: 
1) IGNORE ERRORS BUT COUNT IF NONEM (NO NON-EXISTANT MEMORY) FLAG = 1. 
3) TO EXIT PATTERN © DURING SIZING IF NON-EXIST MEM ERROR 
§EREREEEEEEEEERERERESEEESEREEE EEE EES EREERE REESE SE SESESEE SEES EEEEERERE EEE R EEE OE 


NONEXIST ; CHP #1,NONEM sCOUNTING_NON- -EXISTANT MEMORY ERRORS? 
INC NEMCNT ‘BUMP NON-EXISTANT MEMORY COUNTER 
CMP #1, NEMCNT sFIRST ERROR? 
BNE 1 ;NO - SKIP 
s HOV RO, ADDRESS ;ASSUME RO CONTAINS THE ADDRESS ACCESSED 
2$: INC NEMCNT ;BUMP NON-EXISTANT MEMORY COUNTER 
MOV #1,R1 ;DUMMY UP Ri FOR A FORCED SOB EXIT 


FEES ERERSEEEESEEEKERE EKER EE EEE EERES EKER EREREKEREEEREEEESESE ERE EE EERE 
TTL 


. SB TRAP TIMEOUT (TRAP TO 4) HANDLER 
a BADSTACK FIND BAD SP,PC,PSW OFF STACK 
INC FATAL$ ;SET FATAL INDICATOR 
ERROR +6 
.DSABL CRF 


SEEKERS EKER SEEKERS EERE EEK EREREEERERE CESSES ERSEESERKEEERESRESEE EEE SE 


-SBTTL TRAP MEMORY MANAGEMENT (TRAP TO 250) HANDLER 
MMTRAP : oe oe sFIND BAD SP,PC,PSW OFF STACK 
INC FATAL$ ;SET FATAL INDICATOR 
ERROR +7 
-DSABL CRF 
-SBTTL TRAP RESERVED INSTRUCTION HANDLER 
eee _— ACK ;FIND BAD SP,PC,PSW OFF STACK 
INC FATAL $ ;SET FATAL INDICATOR 
ERROR +5 
-DSABL CRF 


BADSTACK:SUBTST <<FIND BAD SP, PC, & PSW FROM STACK>> 
pEREREREERER EER ERE EERE EERE EERE EEE ER EE ER ERE EEE REE SEER SEES EERE EEE EE EE EEE EE EEE ES 


;*SUBTEST FIND BAD SP, PC, & PSW FROM STACK 
SERRE E ARERR ERE REE ERE RE EEA REAR EERE AREER EEE ER ERE REESE EERE EERE SESE EEE EEE OEE EES 
MOV » BADSP 
ADD #2 ,BADSP 
MOV 2(SP),BADPC 
a 4(SP),BADPSW 


SEQ 0276 


F6 
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KERNEL TRAP HANDLER SEQ 0277 


——-— © 


9571 .SBTTL TRAP KERNEL TRAP HANDLER 
9572 Petit ttt ttt t tt tt ttt ttt ttt tt ttt tit ttt ti ttt ttt ttt it ttt ttt ttt TTT TT TTT TTT TTT TTT TTT eT 
9573 ;KERNEL IS A TRAP THAT COMES HERE 
Te. 5 EERE EEERERERESEERERESEEEEEEEEEESER EERE EER ERE REREEEREEEE REESE EEE RE EEES EERE REED 
95 
9576 034202 042766 140000 000002 $KERNEL: BIC #340000 , 2( SP) 
9577 034210 000002 RTI 
9578 Pitti tit titi tt tt ttt ttt t ttt t ttt titi tit ti titi itiiti iii ttittttt titi t tt ttt tet tT tte Ts 
9579 .-SBTTL TRAP ENERGIZE TRAP HANDLER 
9580 034212 052737 000001 177572 S$ENERGIZE:BIS #BITO,MMRO 
9581 034220 000002 RTI 
9582 ome es ee OCC neenenenntenen 
.SBTTL TRAP DEENERGIZE TRAP HANDLER 
9584 034222 042737 000001 177572 #DEENERGIZE : BIC #BITO,MMRO 
034230 000002 RTI 
Seti itt iti ti titi it ttt tttititittittitititittitititititttttitititittititii titi tit itt 
.SBTTL TRAP CACHON TRAP HANDLER 
9588 034232 005737 002544 $CACHN: TST CACHKN ;IS THERE A CACHE 
034236 001406 BEQ i$ ;NO - RETURN 
9590 034240 013737 002544 177746 MOV CACHKN, CONTRL ;SETUP CACHE AS PER CONSTANT \ aemeaad 1 = FULLY ON) 
9591 034246 052737 000001 177746 BIS #BITO,CONTRL ; DISABLE TRAPS CBUT NOT ABORTS) 
9592 034254 000002 1$: RTI 
5 ERR EEEE AERA EEE EAE EERE EEEERERERERE REAR ERAEREAERE REESE EEE EEE EEEEEEEEEEEE HEED 
9594 .SBTTL TRAP CACHOFF TRAP HANDLER 
9595 034256 005737 002544 $CACHF: TST CACHKN ;1S THERE A CACHE? 
9596 034262 001403 BEQ i$ ;NO - RETURN 
;DISABLE TRAPS (NOT ABORTS), FORCE MISSES, FLUSH, BYPASS 
9598 034264 053737 002550 177746 BIS CACHKF , CONTRL 
9599 034272 000002 1$: 


— 2 
———— oe 


eee eee ee 


| Sane MSV11-J MEMORY DIAG. 


RAP LOAD CSR TRAP HANDLER 


9621 
9622 


404 
9627 034406 


001003 
052737 
013760 


012601 
012600 
000002 


010046 
013700 
016037 


012600 
000002 


002152 
002536 
002532 
002533 
177740 
002152 


002532 


020000 
002150 


002152 
172100 


—_—_——_~ <= 
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002152 


002150 
172100 


002150 


$LOADC: 


1$: 


$READC: 


-SBTTL TRAP LOAD CSR TRAP HANDLER 
;LOAD CORRECT CSR WITH DATA IN CSR 
;PROGRAM CSR'S ASSERT INHIBIT MODE POINTER WHEN LOADED 


PUSH RO,R1 ;SAVE REGISTERS 
MOV RO, -CSP) 
MOV R1,-CSP) 
MOV CSRNO,RO ;CREATE CSR ADDRESS 
IF INHECC IS TRUE THEN GOTO 3$ ;DON'T WANT INH. MODE POINTER ON 
TST INHECC 
BNE 3$ 
TST PGMCSR ;PROGRAM IN INTERLEAVED SPACE? 
BPL 1$ ;BRANCH IF NOT 
MOVB PGMCSR+1,R1 ;CHECK SECOND ee 
BIC #tC37,R1 ;CLEAR UNNECESSARY BITS 
CMP R1,CSRNO ;IS THIS THE CURRENT CSR? 
BEQ 2$ ;BRANCH IF IT IS 
CMPB PGMCSR , CSRNO ;IS THIS ye CURRENT CSR? 
BNE 3$ :BRANCH IF NOT 
BIS #BIT13,CSR ;SET THE. INHIBIT MODE POINTER TO 1ST 16K 
MOV CSR, CSRADDCRO) ;LOAD THE CSR 
POP R1,RO ;RESTORE REGISTERS 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTI 
-SBTTL TRAP READ CSR TRAP HANDLER 
;READ THE CORRECT CSR INTO LOCATIONS CSR 
PUSH RO 
MOV CSRNO ,RO 
MOV CSRADDCRO),CSR ;READ IT 
POP RO 
MOV (SP)+,RO 
RTI 


SEQ 0278 


—— nie _ 


— —<—<— —— 


—_— — LL ee ee ae 
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TRAP =: TEST (R1) & READ CSR CAREFULLY SEQ 0279 


.SBTTL TRAP TEST (R11) & READ CSR CAREFULLY 
9630 034410 $TSTRD: PUSH RO,R2,R3 
034410 010046 MOV RO, -(SP) 
034412 010246 MOV R2,-C(SP) 
034414 010346 MOV R3,-CSP) 
$631 034416 012700 172100 MOV #CSRADD,RO ;CREATE CSR ADDRESS 
9632 034422 063700 002152 ADD CSRNO,RO 
9633 034426 2 CLR R2 
034430 005737 002532 TST PGMCSR 
9635 034434 100007 BPL i$ 
034436 113703 002533 MOVB PGMCSR+1,R3 
9637 034442 2703 200 BIC #B1IT7,R3 
034446 020337 002152 CMP R3,CSRNO 
9639 034452 1 BEQ 2$ 
034454 123737 002532 002152 1%: CMPB PGMCSR , CSRNO 
9641 034462 100 BNE 3$ 
9642 034464 012702 020000 2s: MOV #BIT13,R2 
9643 034470 737 034542 3$: CALL TSTRD1 
9644 ;IF SINGLE BIT ERROR ONLY - SET CARRY BIT 
9645 034474 5$: POP R3,R2,RO 
034474 012603 MOV (SP)+,R3 
034476 012602 MOV (SP)+,R2 
034 012600 MOV (SP)+,RO 
9646 034502 IF #BIT4 SET.IN CSR AND #B1IT15 OFF.IN CSR 
034502 032737 000020 002150 BIT #BIT4,CSR 
034510 001410 BEQ L343 
034512 032737 100000 002150 BIT #BIT15,CSR 
034520 001004 BNE L343 
9647 034522 052766 000001 000002 BIS #BITO,2C(SP) 
034530 ELSE 
034530 000403 BR L344 
034532 L343:ss5ac3 
9649 034532 042766 000001 000002 BIC #BITO,2C(SP) 
9650 034540 END ;OF IF #BIT4 
034540 L344:isissa3 
9651 034540 000002 RTI 
9653 034542 010210 TSTRD1: MOV R2,CRO) : 
9654 034544 TESTA . 
034544 053737 002552 177776 om laaaaaliliae ;G0 TO SYSTEM TEST MODE 
9655 034552 105711 TSTB (R1) ; 
9656 034554 042737 140000 177776 BIC #B1IT15!BIT14,PSW : 
9657 034562 011037 002150 MOV CRO),CSR ; 
9658 034566 000207 RETUR : 


——— ee 


—— dem a eae a te te 
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TRAP ECC DISABLE ALL CSR‘'S TRAP HANDLER 


SEQ 0280 — 


9661 -SBTTL TRAP ECC DISABLE ALL CSR’'S TRAP HANDLER 
9662 034570 012737 000002 002150 sECCDIS:MOV #BIT1,CSR 
9663 034576 004737 035314 CALL CSROUT 
9664 034602 RTI 
-SBTTL TRAP ECC DISABLE OF 1 SELECTED CSR TRAP HANDLER 
0 012737 000002 002150 sECCiIDIS:MOV #B1IT1,CSR 
9667 034612 104425 LOADCSR 
9668 034614 000002 RTI 
-SBTTL TRAP INITIALIZE ALL CSR'S TRAP HANDLER 
9670 034616 012737 000001 002150 sECCINIT:MOV #BITO,CSR 
9671 034624 004737 035314 CALL CSROUT 
9672 034630 RTI 
9673 .SBTTL TRAP INITIALIZE 1 SELECTED CSR TRAP HANDLER 
9674 034632 012737 000001 002150 SECCIINIT:MOV #BITO,CSR 
9675 034640 104425 LOADCSR 
9676 034642 RTI 
77 -SBTTL TRA ENABLE SBE PARITY TRAPS ON ALL CSR'S 
9678 034644 012737 000003 002150 $ENASBE:MOV $8170! BIT1,CSR 
9679 034652 004737 035314 CALL CSROUT 
9680 034656 RTI 
-SBTTL TRAP ENABLE SBE PARITY TRAPS ON 1 SELECTED CSR 
9682 034660 012737 000003 002150 $sENAISBE:MOV #BITO!BIT1,CSR 
9683 034666 104425 LOADCSR 
9684 034670 000002 
.SBTTL TRAP WRITE CHECKBITS THRU ALL CSR'S TRAP HANDLER 
9686 034672 013737 002314 002150 $CBCSR: MOV CHECK , CSR ;BITS 11- 
9687 034700 052737 000006 002150 BIS #BIT1i!BIT2,CSR ;CHECK MODE 
9688 034706 004737 035314 at CSROUT 
9689 034712 000002 RTI 
90 -SBTTL TRAP WRITE CHECKBITS THRU 1 SELECTED CSR TRAP HANDLER 
91 034 013737 002314 002150 $CB1CSR:MOV CHECK, CSR ;sBITS 11- 
9692 054722 052737 000006 002150 BIS #BIT1!BIT2,CSR ;CHECK MODE 
9693 034730 104425 LOADCSR 
9694 034732 000002 RTI 


—— — « 


ee 


eee 


| Seine MSV11-J MEMORY DIAG. 


WAS THERE A SBE ON ANY CSR TRAP HANDLER 


0 0 
9719 035040 
9720 035046 

035046 
9721 035046 
9722 
9723 
9724 035050 


9728 035070 


010146 
010446 
013701 
005004 


005037 
006301 
103010 
104426 
032737 
001403 
012704 
000411 


006004 
012604 
012601 
103004 
052766 
000403 
042766 


002224 
002152 
000020 


177777 


000002 
002152 


000001 


000001 


000001 
000020 
000001 
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002150 


002152 
000036 


000002 


000002 


00000 
002150 
000002 





;ON 
$WAS1SBE :READCSR 
BIC 


-SBTTL TRAP 
R1,R4 


$WASSBE : PUSH 


me ae »R1 
BEGIN LWSBE 
FOR CSRNO : 


ASL 
ON. ERROR 


WAS THERE A SBE ON ANY CSR TRAP 


;GET CSR'S BYTE 


:= #0 TO #36 BY #2 


READCSR 
IF #BIT4 SET.IN CSR 


SET R4 
LEAVE LWSBE 
END ;OF IF #BIT4 
END ;OF ON.ERROR 


IF Ri EQ #0 THEN LEAVE LWSBE 


END ;OF FOR CSRNO 


END LWSBE 
ROR R4 
POP R4,R1 
ON.ERROR 

BIS #BITO,2(SP) 
ELSE 


BIC #BIT0,2¢(SP) 
END ;OF ON.ERROR 


RTI 
-SBTTL TRAP 


;SET C BIT FOR ERROR 


RETURN IF CARRY IS SET THERE WAS A 


#BITO,2(SP) 
BIT icon 


BEQ 1 
BIS #BITO,2¢SP) 


;CLR C BIT ON STACK 


;SET C BIT ON STACK 


HANDLER 


MOV R1,-CSP) 
MOV R4,-(SP) 


BS7ssssass 


BCC L345 


BIT #B1IT4,CSR 
BEQ L346 


MOV #-1,R4 
BR E57 
L346:555553 
Ls4a sess 
BEQ £57 


ADD #2,CSRNO 
CMP CSRNO, #36 
E B60 


BL 
E60:sssssis 
ES7:ssssss 

MOV (SP)+,R4 

MOV (SP)+,R1 

BCC L347 

BR L350 


WAS THERE A SBE IN 1 a CSR TRAP HANDLER 


SEQ 0281 | 


CVMJARO HSV11-J MEMORY DIAG. 


| 


——«§_ FC 


K6 
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WAS THERE A SBE IN 1 SELECTED CSR TRAP HANDLER 


9729 035076 000002 1$: RTI 


te ce wee 


SEQ 0282 





-_ — a - —— <= 
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TRAP WAS iHERE A DBE ON ANY CSR TRAP HANDLER 


SEQ 0283 — 


9732 .SBTTL TRAP WAS THERE A DBE ON ANY CSR TRAP HANDLER 
9733 035100 $WASDBE : PUSH R1,R4 
035100 010146 MOV R1,-(SP) 
010446 MOV R4,-(SP) 
9734 035104 013701 0602224 toy! TOTCSRS,R1 ;GET CSR’'S BYTE 
9735 035110 005004 CLR R4 
9736 Oearis BEGIN LWDBE 
5333383 
9737 035112 FOR CSRNO := #0 TO #36 BY #2 
035112 005037 002152 CLR CSRNO 
035116 B62:isisas 
9738 035116 006301 ASL R1 
9739 035120 ON. ERROR 
035120 103010 BCC L351 
9740 035122 104426 READCSR 
9741 035124 IF #BIT15 SET.IN CSR 
035124 032737 100000 002150 BIT #BIT15,CSR 
035132 001403 BEQ L352 
9742 035134 SET R4 
134 012704 177777 MOV #-1,R4 
9743 035140 LEAVE LWDBE 
140 000411 BR E61 
9744 035142 END ;OF IF #BIT4 
035142 2353888 
9745 035142 END ;OF ON.ERROR 
035142 L351sssssis 
9746 035142 IF R1 EQ #0 THEN LEAVE LWDBE 
035142 005701 TST R1 
035144 001407 BEQ E61 
9747 035146 END ;O0F FOR CSRNO 
035146 062737 000002 002152 ADD #2,CSRNO 
035154 023727 002152 000036 CMP CSRNO, #36 
035162 003755 BLE 862 
035164 E62:issssss 
9748 035164 END LWDBE 
035164 E6l:ississ 
9749 035164 006004 ROR R4 ;SET C BIT FOR ERROR 
9750 035166 POP R4,R1 
035166 012604 MOV (SP)+,R4 
035170 012601 MOV (SP)+,R1 
035172 ON. ERROR 
035172 103004 : BCC L353 
9752 035174 052766 000001 000002 BIS #BIT0,2C¢SP: 
9753 035202 ELSE 
035202 000403 one BR L354 
9754 035204 042766 000001 000002 BIC #B1IT0,2(SP) 
9755 035212 END ;OF ON.ERROR 
035212 L354:sssss3 
9756 035212 000002 RTI 
9757 .SBTTL TRAP WAS THERE A DBE ON 1 ~— CSR TRAP HANDLER 
9758 ;O0N RETURN IF CARRY IS SET THERE WAS A DBE 
9759 035214 104426 $WAS1DBE : READCSR 
9760 035216 005737 002150 TST CSR ; 
9761 035222 100004 BPL 3$ sNO - SKIP 
9762 035224 052766 000001 000002 BIS #BITO,2CSP) ;SET C BIT ON STACK 
9763 035232 000002 RTI 





CV 
TR 


_ —— ml ea a ll a a ce 
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Ar WAS THERE A DBE ON 1 SELECTED CSR TRAP 


9764 035234 042766 000001 000002 3%: 
9765 035242 000002 


M6 


ia 2 1 a-S 16:10 Page 311-1 


art #BITO,2(SP) ;CLR C BIT ON STACK 


SEQ 0284 


SrraAne MSV11-J 


9768 
9769 035244 
035244 
9770 035250 
9771 035254 
9772 
9773 035256 
035256 
9774 035262 
9775 035264 
9776 
777 
9776 035266 
9779 035274 
9780 035300 
9782 
9783 035302 


9784 035310 
9785 035312 


— ee ee ee 


MEMORY DIAG. 


005037 
004737 
000002 


005037 
104425 
000002 
052737 
004737 
000002 


052737 
104425 


002150 
035314 


002150 


000006 
035314 


000006 
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TRAP CLEAR ALL ECC CSR’‘S TRAP HANDLER 


; CHECKBIT 
002150 $CHKDIS:BiS 
CALL 


002150 


. SBTTL 
$CLRCSR: CLEAR 


RTI 

. SBTTL 
$CLR1CSR: CLEAR 

LOADCSR 

RTI 

- SBTTL 


. SBTTL 


; CHECKBIT 
$CHK1DIS:BIS 
LOADCSR 


RTI 


N6 


co CLEAR ALL ECC CSR'S TRAP HANDLER 


CSROUT 


CLR CSR 


— CLEAR 1 SELECTED CSR TRAP HANDLER 


TRAP ECC oa” oe MODE, & WRITE CHECKBITS IN ALL CSR'S TRAP HANDLER 


S ALREADY IN 
#BITi!BIT2,CSR 
CSROUT 


CLR CSR 


;ECC DISABLE € DIAG CHECK MODE 


SEQ 0285 


TRAP ECC DISABLE, CHECK MODE, & WRITE CHECKBITS IN 1 SELECTED CSR 


S ALREADY IN LOC " 
#BIT1!68IT2,CSR 


sECC DISABLE & DIAG CHECK MODE 


~—— LL LLL OE, 


——— —— —_—_- 


EEE SRI 


TRAP Etc Oi3 


9788 035314 


9789 035314 
035314 
9790 035316 
9791 oeeass 
9792 035322 
035322 
035326 
9793 035326 
9794 035330 
035330 
9795 035332 
9796 035334 
0353 
9797 035334 
0353 
0353 
9798 035340 
035 
035354 
035 
9799 035356 
9800 035356 
035356 
9801 035360 
9802 
9803 035362 


9804 035362 
35362 


5406 
9810 035410 


 — ee eee 


J MEMORY DIAG. MACRO 


010146 
013701 


005037 
006301 


103001 
104425 


005701 
001407 


062737 
023727 
003764 


012601 
000207 


010046 
010146 
013701 
006301 
006301 
042761 


012601 
012600 


voS.0 
ABLE, CHECK MODE, & WRITE CHECKBITS 


002224 
002152 
000002 002152 
002152 000036 
002102 
020000 002666 


Olb Fri 15-Feb-85 16:10 Page 315 
N 1 SELECTED 


CSROUT: SUBTST <<SUBR WRITE IN ALL CSR‘'S>> 


§FSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSSSSSSSSSSSKESSSHSESSESSARESKS SEEKS ESKER ESESE SEES 


; *SUBTEST 


WRITE IN ALL CSR'S 


§FSESSESESESEESESERESESSSESSSSESESERSSSSESSSESER ESSER R ASAE ESE SEEEEESESEE EES 
PUSH Ri ) 


MOV TOTCSRS ,Ri 


BEGIN LCSROUT 
FOR CSRNO : 


ASL 
ON . ERROR 


LOADCSR 
END ;OF ON.ERROR 
IF R1 E@ #0 THEN LEAVE LCSROUT 


END ;OF FOR CSRNO 


END LCSROUT 
POP Ri 
RETURN 


$INVALID: SUBTST 


; *SUBTEST TRAP 


:= #0 TO #36 BY #2 


Ri 


;GET CSR’S BYTE 


MOV Ri, -(SP) 


B63:sissci 

CLR CSRNO 
B64: isssse 

BCC L355 


LsSS:sssess 


TST Rl 
BEG E63 


ADD #2,CSRNO 

CMP CSRNO, #36 

BLE 864 
E64:sissce3 
E63:ssssss 

MOV (SP)-+,R1 


<<TRAP INVALIDATE BACKGROUND PATTERN>> 
SPEER EEEEEEEE ESS EEEEE ESSE EEE ES EE EEEEE ERE E EEE EE SEEEEEREEEEE EERE EE ERES IO 


INVALIDATE BACKGROUND PATTERN 


FSSSSSSSSASSSSS SESS ES SSE SS SESSESSESS SESE SEAS SEERA SERESEKESEESEEESESERESCESSEEEESE 
PUSH 


MOV BANK ,R1 
Ri 


Ri 
BIC #BIT13,CONFIG+2(R1) 
OP R1,RO 


MOV (SP)+,R1 





2 ee eee 


me me — << 
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TRAP INVALIDATE BACKGROUND PATTERN SEQ 0287 


9612 035412 


$ 


SUBTST<<TRAP 


GENERATE AND TEST ERROR ADDRESS>> 


 shananedbinneemnesaadennneennsanbenseeennesoneneennesebabbaneneooseeesencees 


;*SUBTEST 
Daca ttt ptt ttt att 
PUSH 


TRAP 





GENERATE AND TEST ERROR ADDRES 


| 
| 
| 9813 035412 RO,R1,R2,R3 
035412 010046 MOV RO,-(SP) 
035414 010146 MOV R1,-CSP) 
035416 010246 MOV R2,-(SP) 
035420 0346 MOV R3,-CSP) 
9814 035422 013703 002104 MOV BANKINDEX,R3 
035426 737 002456 TST NOSUPER 
9816 035432 1003 BNE 6$ 
9817 oeeate 013700 172246 a ire ;GENERATE WHAT ERROR ADDR SHOULD BE 
9819 035442 013700 177646 6$: MOV UIPAR3,RO 
03 072027 177773 7$: ASH #-5,RO0 
9821 035452 005737 002132 TST EQFLAG 
9822 035456 001002 BNE 1$ 
9823 03 042700 177600 BIC #tC177,RO 
9824 03 000301 1$: SWAB Ri ;GET CURRENT ADDRESS BITS 11 AND 12 
9625 03 006201 ASR Ri 
9826 035470 006201 ASR R1 
9827 035472 006201 ASR R1 
9828 035474 042701 177775 BIC #tC2,R1 
9829 035500 0601 ADD R1,RO ;ADD THEM TO THE ADJUSTED PAR VALUE 
9830 ;GET ERROR ADDRESS FROM CSR UNDER TEST 
9831 035502 013701 002150 MOV CSR,R1 
9832 035506 072127 177773 ASH #-5,R1 
9833 035512 042701 177600 BIC #tC177,R1 
035516 005737 002454 TST NO22BIT ;1S THIS AN 11/83, hi/e3- o OR 11/723 ? 
9835 035522 001024 BNE 2$ ;BRANCH IF NOT NECESSAR 
035524 005737 002132 TST EQFLAG :I1S IT EQB? 
9837 035530 001421 BEQ 2$ ;BRANCH IF NOT 
9838 035532 PUSH RO ;SAVE GENERATED ERROR ADDRESS 
0355 10046 MOV RO,-(SP) 
9839 035534 013702 002152 MOV CSRNO,R2 :GET = NUMBER 
9840 035540 052762 040000 172100 BIS #81714, ye - tel ; TURN ON EQB BIT CAREFULLY 
9841 035 016200 172100 MOV CSRADD(R2), ;GET CSR CONTENTS 
9842 035552 042762 040000 172100 BIC #B1IT14, RERADDCRE) ;TURN OFF EQB BIT CAREFULLY 
9843 035 042700 177037 BIC #t0740,RO0 ‘CLEAR EVERYTHING BUT ERROR ADDR 
9844 035 006300 ASL RO 
9845 035 006300 ASL RO ;SHIFT ADDR BITS 18-21 INTO POSITION 
9846 035570 060001 ADD RO,R1 ;ADD TO CURRENT ERROR ADDRESS 
9847 035572 POP RO 
035572 012600 MOV (SP)+,RO 
9848 035574 0001 2s: CMP RO,R1 ;COMPARE REAL “y GENERATED ERR. ADDR. 
9849 035576 001420 BEQ 5$ ;BRANCH IF THEY ARE THE SAME 
9850 035600 005737 002136 TST INTFLAG ; INTERLEAVED? 
9851 035604 001411 BEQ 3$ ;NO - WE HAVE AN ERROR 
9852 035606 7 000100 ADD #100 ,RO 
9853 035612 005737 002140 TST INT64K ;64K INTERLEAVED MEMORY? 
9854 035616 001002 BNE 4$ 
9855 03 700 000100 ADD #100 ,RO 
9856 03 4$: CMP RO,R1 
9857 035626 001404 BEQ 5$ 
9858 035630 005737 002066 3$: TST SKPERR ;ARE WE SUPPOSED TO SKIP ERROR P.0.? 
9859 035634 001001 BNE 5$ ;YES - SKIP ERROR PRINTOUT 
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TRAP GENERATE AND TEST ERROR ADDRESS SEQ 0288 
9860 035636 104462 PERR36 ;ELSE PRINT ERROR ADDRESS ERROR 
9861 035640 010137 002460 S$: MOV R1,ERRADD ;SAVE CSR'S ERROR ADDRESS 
9862 035644 005037 002066 CLR SKPERR ;ENASLE THE ERROR PRINTOUT AGAIN 
9863 035650 POP R3,R2,R1,RO ;RESTORE REGISTERS 
035650 012603 | MOV (SP)+,R3 
035652 012602 MOV (SP)+.R2 
012601 MOV (SP)+.R1 
035656 012600 MOV (SP)+.RO 
9864 035660 000002 RTI 
9866 035662 $CBREG: SUBTST <<TRAP ENABLE CHECKBIT REGISTER>> 
FESS ESSERE EERE EERE EEK EKEESERERSESEEKSES SESSA EKECSEKEKSESRSERESE SESE EEE EE ES 
; «SUBTEST TRAP ENABLE CHECKBIT REGISTER 
fF ESKESEEE ESE KEES SSSR SE CERES ESKER ERE SES 
9867 035662 005037 002150 CLR CSR : 
9868 035666 052737 000004 002150 BIS 4B1T2,CSR ENABLE DIAGNOSTIC MODE 
9869 035674 104425 LOADCSR ;LOAD CSR REGISTER 
9870 035676 000002 RTI 
9872 035700 $SYNREG: SUBTST <<TRAP ENABLE SYNDROME BIT REGISTER>> 
SEEKERS SEE EEE EERE EERE SEEKERS EEKERKKKEREKEREREAECEERER EEE EEE 
; «SUBTEST TRAP ENABLE SYNDROME BIT REGISTER 
SEEKS ESSERE CAKES EEKSERERESESESSEEESEESEEKEREEESE EERE EER ES 
9873 035700 005037 002150 CLR CSR 
9874 035704 052737 040004 002150 BIS #B1T14!BIT2,CSR ;ENABLE DIAGNOSTIC MODE 
9875 035712 104425 LOADCSR ;LOAD CSR REGISTER 


9876 035714 000002 RTI ; 
9877 
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TRAP ENABLE 
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SYNDROME BIT REGISTER SEQ 0289 
9880 035716 SUBTST<<SUBR MAPPER >> 
§FSSSSSSSSSSSEESSSSSSSSESSSSS SS SSS SSS SSS ESSERE SASCESEE CSS SSESSSERSRE RES RESESCREKEEES 
; *SUBTEST R MAPPER 
£FSSSSSSSSEES SSS SSSSSSESS SS SESS ESERSESSESESSSESSES SERS KSSSEREKEKSESESESEE SEES ERECEEERES 
9881 ;THIS SUBROUTINE MAPS THE MEMORY BANK (16K WORDS = 1 BANK) 
9882 ; IN R3 TO THE TEST PATTERN AREA (SUPERVISOR VIRTUAL (60000 - 157777) FOR 
b+ $1 s THE 11/83 ; USER VIRTUAL (60000 - 157777) FOR ALL OTHERS. 
9885 ; 
9886 ;CALL MOV BANKNO ,R3 ;SET UP BANK ARGUEMENT 
9887 ; CALL MAPPER ;ACTUAL CALL 
eens ; RETURN ;ONLY RETURN 
9890 ;SET SUPERVISOR/USER UP FOR 1 TO 1 MAP 
035716 010046 MOV RO,-(CSP) 
035720 010146 MOV R1,-(CSP) 
035722 010246 MOV R2,-CSP) 
035724 010446 MOV R4,-C(SP) 
035726 010546 MOV RS,-CSP) 
9892 035730 012700 172340 MOV #KIPARO,RO ;FIRST AREA TO MAP TO 
9893 035734 012701 172240 MOV #SIPARO,R1 ;FIRST ADDRESS REGISTER 
9894 035740 012704 172200 MOV #SIPDRO,R4 ;FIRST DESCRIPTOR REGISTER 
9895 035744 005737 002456 TST NOSUPER ;CAN WE USE SUPERVISOR MODE? 
035 14 BEQ 4$ ;YES, BRANCH 
9897 035752 012701 177640 MOV #UIPARO,R1 ;FIRST ADDRESS REGISTER 
9898 035756 012704 177600 MOV #UIPDRO,R4 ;FIRST DESCRIPTOR REGISTER 
9899 035762 012702 077406 4$: MOV #77406 ,R2 ;CONSTANT FOR 4K PAGE, UP, R/W 
035766 012705 10 MOV #8.,R5 ; COUNTER 
9901 035772 012021 1$: MOV CRO)+,CR1)+ ;PUT IN SUPERVISOR ADDRESS 
9902 035774 010224 MOV R2,(R4)+ ;PUT IN SUPERVISOR DESCRIPTOR 
9903 035776 077503 SOB RS,1$ ;LOOP TILL DONE 
9904 036000 012741 177600 MOV #177600, -C(R1) ; CORRECT CAST FIELD FOR PERIPHERALS PAGE 
9905 036 022737 000005 004010 30%: CMP #5 ,,PROTYP ;IS THIS A 11/73? 
9906 036012 001007 BNE 40$ ;BRANCH IF 
9907 036014 012704 172206 MOV #SIPDRO+6,R4 sPOINT TO PDR 3 
9908 036020 012705 MOV #4.,R5 ; COUNTER=4 
9909 036024 052724 100000 35$: BIS  § #B1T15,(R4)- ;SET UNCONDITIONAL CACHE BYPASS IN PDR3-6 
9910 036030 077503 SOB R5,35$ 
9911 ;SET UP SUPERVISOR/USER FOR TEST AREA 
9912 036032 022703 000200 40$: CMP #200 ,R3 MAP NOTHING (1 TO 1)? 
9913 036036 001516 BEQ $ ive KIP 
9914 036040 072327 000011 ASH #9. ,R3 :BANK 1 STARTS AT 100,000 LESS 6 LSB’'S 
15 ;FOR MEMORY MANAGEMENT = 1000 
9916 036044 012701 172246 MOV #SIPAR3,R1 ; SETUP FOR AUTO INCREMENTING 
9917 036050 005737 002456 TST NOSUPER ;D0 WE “— SUPERVISOR MODE? 
9918 036054 001402 BEQ S$ ;YES - BRANCH 
9919 036056 012701 177646 MOV #UIPARS,Ri ; SETUP FOR AUTO INCREMENTING 
9920 036062 012702 000004 5$: MOV #4,R ; COUNTER 
9921 036066 010321 2$: MOV RS. mh 2° ;PLUG IN PAR INFO 
9922 036070 2703 000200 ADD #200,R ; BUMP ADDRESS 4K 
9923 036074 077204 SOB R2,2$ : LOOP TILL DONE 
9924 036076 005737 002240 TST SPLTCSR 
9925 036102 001442 BEQ 9$ 
9926 036104 162701 000010 SUB #10,R1 
9927 036110 010102 MOV R1,R2 
9928 036112 062702 000004 ADD #4,R2 
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9929 036116 
99 361 


73 324 
9974 036330 
9975 036334 


022737 
3 


001404 
013737 
000403 
013737 
012605 


012703 
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SEQ 0290 
000001 002240 CMP #1,SPLTCSR 
BEQ 10$ 
MOV R2,RO0 
MOV R1,R2 
MOV RO,R1 
10$: MOV CR1)+,(R2)+ 
MOV (R1),CR2) 
002104 MOV BANK INDEX , RO 
002140 TST INT64K 
BEQ 11$ 
004000 MOV #4000 ,RO 
BR 12$ 
010000 11$: MOV #10000 , RO 
002456 12$: TST NOSUPER 
BEQ 13$ 
177652 MOV #UIPARS ,R1 
BR 14$ 
172252 13$: MOV #SIPARS,R1 
14$: ADD RO,(R1)+ 
ADD RO,(CR1) 
;IF WE ONLY HAVE AN 124K SYSTEM, WE DON'T WANT TO TEST THE 
;LAST 4K, WHERE THE Q-BUS DEVICE PAGE IS. INSTEA D, THE 
; PROGRAM WILL REMAP THE LAST 4K TO 8-12K. ALSO, IF THERE 
;1S A BANK 177 ON AN 11/83, THE PROGRAM WILL REMAP THE LAST 
;4K TO 8-12K FOR THE SAME REASON. 
000007 002556 9%: CMP if , LASTBANK 
002454 TST NO22BIT 311/83,11/23-B OR 23? 
BEQ 3$ BRANCH IF SO 
000007 002102 CMP #7 ,BANK ;BANK 7? 
~_ a ;NO - BRANCH 
000177 002102 7$: CMP #177 ,BANK 
BNE 3$ 
002456 8$: TST NOSUPER 
BEQ 6$ 
177652 177654 Had alah ata 
172252 172254 6$: MOV SIPARS , SIPAR6 
3$: POP R5,R4,R2,R1,R0 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
RETURN 
.SBTTL TRAP MAP KERNEL CALMOST 1 TO 1) TRAP HANDLER 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV 3,-(SP) 
MOV R4,-(SP) 
CLR RO 31ST AREA TO MAP TO 
172340 MOV #KIPARO,R1 ;FIRST ADDRESS 
077406 MOV #77406 ,R2 ;CONSTANT FOR 4K PAGE,UP,R/W 
172300 MOV #KIPDRO,R3 ;1ST PAGE DESCRIPTOR REGISTER 
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TRAP = MAP - KERNEL (ALMOST 1 TO 1) TRAP 


| 9976 036340 012704 000010 
| 9977 036344 010021 
9979 036350 062700 000200 


077405 
9981 036356 012741 177600 
sone 036362 012741 177400 
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HANDLER 


1$: 


RTI 


R4, 

#177600, -C(R1) 
#177400, -(R1) 
R4,R3,R2,R1,RO 


; COUNTER 
;PUT IN KERNEL ADDRESS 
;PUT IN KERNEL DISCRIPTOR 
S CONSTANT FOR 4K CHANGE 


;LOOP TILL DONE 
;THE PERIPHERALS PAGE TO KIPAR7 
;AND NEXT LOWER PAGE TO KIPAR6 


MOV (SP)+,R4 


MOV (SP)+.RO 


- ee ———= me ee ———<— « 
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TRAP MAP KERNEL (ALMOST 1 TO 1) TRAP SEQ 0292 | 


9993 036402 RELOCATE: SUBTST <<RELOCATE PROGRAM>> 
5 EEEEEEEEEEEEEEEESEEEEEESEESEEREERE EES EREEEESEE EERE E REE EEEEEE ERED EER ERROR ERE ES 
; *SUBTEST RELOCATE PROGRAM 
5 ECE EEEEEEEEESEEESEEEEESESEESEEEEEEESEREREEERE RES EEEEEEREREEEEEERERRE CRE EO ROES 
9994 036402 IF #SWi2 SET.IN @SWR THEN $RETURN ERROR 
036402 032777 010000 144226 BIT #SW12,aSwWR 
036410 001402 BEQ L356 
036412 000261 SEC 
036414 000207 RTS PC 
036416 L356:isciee 
9995 036416 IF APTFLAG IS TRUE OR ACTFLAG IS TRUE 
036416 005737 002352 TST APTFLAG 
036422 100 BNE L357 
036424 005737 002350 TST ACTFLAG 
036430 001405 BEQ L360 
036432 LaS7ssseaae 
9996 036432 IF $PASS NE #0 THEN $RETURN ERROR 
036432 005737 056654 TST $PASS 
036436 001402 BEQ L361 
036440 000261 SEC 
036442 000207 RTS PC 
036444 L361:isisc3 
9997 036444 END; OF IF APTFLAG 
03 L360:;ss533 
9998 036444 BEGIN LOADERBANK 
036444 B65:sssss3 
9999 036444 FOR BANK := #1 TO LASTBANK 
036444 012737 000001 002102 MOV #1,BANK 
036452 B66: sss333 
10000 036452 004737 040052 CALL EXBANK 
10001 036456 IF ACFLAG IS TRUE AND PFLAG IS FALSE AND BMFLAG IS FALSE 
036456 005737 002116 TST ACFLAG 
036462 001431 BEQ L362 
036464 005737 002122 TST PFLAG 
036470 001026 BNE L362 
036472 5737 002130 TST BMFLAG 
036476 001023 BNE L362 
10002 036500 013700 002102 MOV BANK ,RO 
10007 036504 010037 002432 MOV RO, LOADBANK 
1 036 013701 002576 MOV LOADHOME ,R1i 
10005 036514 004737 037442 CALL BANKMOV 
10006 036520 004737 037774 CALL NEWLOAD ;MAP NEW LOADER BANK IN KERNEL 
10007 036524 013701 0021 MOV BANKINDEX,R1i 
10008 036530 052761 100000 002666 BIS #81715, CONFIG+2(R1) ;MARK LOADER 
10009 036536 042761 020000 002666 BIC #B1T13,CONFIG+2(R1) ; INVALIDATE BACKGROUND PATTERN 
10010 036544 LEAVE LOADERBANK 
036544 000416 BR E65 
10011 036546 END ;OF IF ACFLAG — 
S888388 
10012 036546 END ;OF FOR BANK 
036546 005237 002102 INC BANK 
036552 023737 002102 002556 CMP BANK ,LASTBANK 
036560 003734 BLE 866 
036562 E66:ssss383 
10013 036562 IF #SW13 OFF.IN @SWR 
036562 032777 020000 144046 BIT #SW13,aSWR 
036570 001002 BNE L363 
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“RELOCATE PROGRAM SEQ 0293 


10014 036572 TYPE MSGO75 ;RELOCATION NOT POSSIBLE 
036572 104401 070176 TYPEIT ,MSGO75 
-DSABL CRF 
10015 036576 END ;OF IF #SwWi3 
036576 L363:sissa3 
10016 036576 $RETURN ERROR 
036576 000261 SEC 
0 000207 RTS PC 
10017 036602 END LOADERBANK 
0 E6S:issacs 
10018 oeeens BEGIN FINDBANK —_ 
S3358338 
10019 036602 013702 002556 MOV LASTBANK ,R2 
10020 0 006302 ASL Re 
10021 036610 006302 ASL R2 sR2 <- R2 « 4 
10022 036612 FOR R1 := #2«2 TO R2 BY #4 
eects 012701 000004 ste: MOV #222,R1 
eee) 
10023 036616 IF #BIT7!BITO OFF.IN CONFIGCR1) ;IF NO ERRORS &€ NOT PROGRAM SPACE 
036616 032761 000201 002664 BIT #BIT7!BITO, CONFIG(R1) 
036624 001035 NE L364 
10024 036626 IF #BIT15 OFF.IN CONFIG+2(R1) ;IF NOT LOADER BANK 
036626 032761 100000 002666 BIT #B61T15,CONFIG+2(R1) 
036634 001031 BNE L365 
10025 036636 IF CPUBIT SET.IN CONFIG(R1) ;IF ACCESSABLE 
636 033761 002106 002664 BIT CPUBIT. CONFIG(R1) 
036644 001425 BEQ L 
10026 036646 IF #BIT8 OFF.IN CONFIG+2(R1) THEN LEAVE FINDBANK ;IF PARITY 
036646 032761 000400 002666 BIT 7 ale CONF IG+2(R1) 
036654 001460 BEQ 
10027 036656 IF #BITS SET.IN CONFIGCR1) AND #BIT7 OFF.IN CONFICCR 1) 
036656 032761 000100 002664 BIT oez te: CONF IGCR1) 
036664 001405 BEQ L 
036666 032761 000200 002664 BIT SorT?, COTS) 
036674 001001 BNE L367 
10028 ;IF 1ST PROTECTABLE ECC BANK 
10029 036676 LEAVE FINDBANK 
036676 000447 BR E67 
10030 036700 END ;OF IF #B1IT6 
036700 L367:sssice 
10031 036700 IF INHECC IS FALSE 
036700 005737 002536 ° TST INHECC 
036704 001005 BNE L370 
10032 036706 SET  INHECC 
67 012737 177777 002536 MOV #-1,INHECC 
10033 036714 010137 002540 MOV R1,INHBANK 
10034 036720 END; OF IF INHECC 
L370:ssssse 
10035 036720 END ;OF IF CPUBIT 
7 L366:ssse33 
10036 036720 END ;OF IF #BIT15 
7 L365:ssss¢3 
10037 036720 END ;OF IF #B1T7 
7 L364:s53553 
10038 036720 END ;OF FOR 
036720 062701 000004 ADD #4,R1 
036724 020102 CMP R1,R2 


——_— —_—_- 
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RELOCATE PROGR 
036726 
| 36730 
| 40039 036730 

36730 


10052 oer ets 
10053 0370le2 
37012 

37014 

10054 037016 
37016 

10055 037016 
7016 


10059 037036 
37036 

10060 037042 
10061 037050 
10062 037054 
037054 

10063 037062 
037062 
037066 
037070 
037072 

10064 037074 


10070 037120 


003733 
005737 
001012 
005737 
001407 
013701 
023727 


001421 
000420 


005037 
032777 
001006 
023727 
001402 


104401 


000261 
000207 


005037 
042761 


005000 
071027 
010037 
013737 
004737 


052737 


002542 
002536 


002540 
002300 


002536 
020000 
002300 


070176 


002536 
020000 


037610 
140000 


041024 
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000030 


143642 
000030 


002666 


002534 


177776 


177572 





SKUB: 


RELENT1: 


RELOC1: 


JMPRL1: 


J/ 


IF FULLREL IS FALSE 


IF INHECC IS TRUE 


MOV INHBANK ,R1 
CMP REALPAT , #30 
BEQ RELENT1 

BR RELENT1 


END; OF IF INHECC 
END; OF IF FULLREL 


CLR  INHECC 
IF #SWi3 OFF.IN @SWR 


CMP REALPAT , #30 
BEQ SKUB 
TYPE MSGO75 
TYPEIT ,MSGO75 
-DSABL CRF 


END ;OF IF #SW13 
$RETURN ERROR 


END FINDBANK 
CLEAR INHECC 
BIC #BIT13,CONFIG+2(R1) 
CLR RO 
DIV #4 ,RO 
LET NEWBANK := RO 
MOV eons PGMCSR+2 
CALL USERM 
USER 
BIS #BIT15!BIT14,PSW 
.DSABL CRF 
BMOV 0,100000 , SIZE 
JSR RS, BLOCKS 
SIZE 
_— 
. DSABL CRF 
KERNEL 
BIC #BITO,MMRO 
CALL NEWKERNEL 
MOV NEWBANK , RO 
ASL 
ASL RO 
MOV CONFICCRO),R2 


L371: 
;MAKE SURE FLAG IS TURNED. OFF ! 
BIT #SW13,aSWR 
BNE L373 


;IS THIS PATTERN 30? 
;YE SKIP MESSAGE 
;RELOCATION NOT POSSIBLE 


SEC 
RTS PC 


BLE 870 
E7O:ssssaae 
TST FULLREL 
BNE L371 
TST INHECC 
BEQ L372 
;IS THIS PATTERN 30? 
;YES - SKIP MESSAGE 
LS7e:sisacs 


SEQ 0294 


EG7:ssssee 
;IF WE RELOCATED PROPERLY. THIS SHOULD BE OFF! 
R INHECC 


CL 
;INVALIDATE BACKGROUND PATTERN 


;SAVE CURRENT PGM. CSR 
;MAP NEWBANK TO USER PAR 
;ENTER USER MODE 

;GO 70 USER MODE 


;MOVE PROGRAM 


;ENTER KERNEL MODE 


MOV RO,NEWBANK 


;DEENERGIZE MEMORY MANAGEMENT 


sRO <- RO « 4 


ee eee mm ee ——_—— - — — = 
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RELOCATE PROGRAM SEQ 0295 | 
10071 037124 000302 SWAB R2 
10072 037126 042702 177760 BIC #tC1i7,R2 
10073 037132 006302 ASL R2 
10074 037134 052737 000001 177572 BIS #BITO,MMRO | ‘ereie MEMORY MANAGEMENT 
10075 037142 010237 002532 MOV R2,PGMCSR PUT NEW PGM. CSR INTO PGMCSR 
10076 037146 032760 010000 002666 BIT #BIT12,CONFIG+2(RO) ‘IS THE NEW BANK INTERLEAVED? 
10077 037154 001412 BEQ 1$ ; BRANCH IF NOT INTERLEAVED 
10078 037156 016002 002664 MOV CONFIGC(RO),R2 
10079 037162 042702 007777 BIC #tC170000 ,R2 
10080 037166 072227 177775 ASH #-3,R2 
10081 037172 052702 100000 BIS #BIT15,R2 
10082 037176 050237 002532 BIS R2,PGMCSR 
10083 037202 1$: SET RLFLAG 
037202 012737 177777 002126 MOV #-1,RLFLAG 
10084 037210 $RETURN NOERROR 
037210 000241 CLC 


037212 000207 RTS PC 


ee ee 


Ry; 
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_RFLOCATE PROGRAM 
| 10087 037214 


SEQ 0296 
UNRELOCATE : SUBTST <<UNRELOCATE PROGRAM>> : 


£ FFSSSSSSESSSSSSSSESSS SESS SSS SS SSS SES SS SSSSES KEK SEAS SSESESSRSESHERESERESE SESE ORE EEES 


; *SUBTEST UNRELOCATE PROGRAM 
{PRESSE EEEEEEEEESESEEEESEEEEESEE SESE SER ERERERE EERE SEE EEEREEEERERERE EEE SOOO EERE 


10088 
10089 037214 
37214 


;RESTORE LOADERS 
PUSH RO 


0 01 MOV RO, -CSP) 
037 013701 002432 MOV LOADBANK ,R1 
0091 037222 0137 002576 V LOADHOME , RO 
10092 037226 004737 037442 CALL BANKMOV 
10093 037232 004737 037774 CALL NEWLOAD ;MAP NEW LOADER BANK IN KERNEL SPACE 
037 PUSH BANK 
037 013746 002102 MOV BANK, -(SP) 
10095 037242 013737 002432 002102 MOV LOADBANK , BANK 
10096 0372 737 040052 CALL EXBANK 
10097 037254 013701 002104 MOV BANKINDEX,R1 
10098 037260 042761 002666 BIC #BIT1S5,CONFIG+2(R1) ;CLEAR LOADER FLAG 
1 037 013737 002576 002102 MOV LOADHOME , BANK 
10100 037274 7 005 CALL EXBANK 
10101 037300 013701 002104 MOV BANKINDEX ,R1 
10102 037304 042761 02 002666 BIC 5 7 ee CONFIG+2(R1) ; INVALIDATE BACKGROUND PATTERN 
10103 037312 POP BANK 
037312 012637 002102 MOV (SP )+,BANK 
10104 037316 CLEAR INHECC ;MAKE SURE ECC TESTS ARE NOT INHIBITED! 
10105 037316 005037 002536 CLR INHECC 
10106 ;RESTORE BANK O 
10107 037322 042737 020000 002666 BIC #BIT13, iia ;INVALIDATE BACKGROUND PATTERN 
10108 037330 LET NEWBANK := 
037330 005037 002310 CLR NEWBANK 
10109 037334 004737 037610 CALL USERMAP ;MAP NEWBANK TO USER PAR 
10110 037340 USER sENTER USER MODE 
037340 052737 140000 177776 a: abate ;GO TO USER MODE 
10111 037346 BMOV 0,100000 , SIZE ;MOVE PROGRAM 
037346 004537 041024 JSR RS,BLOCKS 
037352 040000 SIZE 
037354 100000 100000 
037356 0 
.DS CRF 
10112 037360 104417 KERNEL ;ENTER KERNEL MODE 
10113 037362 042737 177572 BIC #BITO,MMRO w ;DEENERGIZE MEMORY MANAGEMENT 
10114 037370 004737 037672 CALL NEWKERNEL 
10115 037374 013737 002534 002532 MOV PGMCSR+2,PGMCSR ;RESTORE PREVIOUS PGM. CSR 
10116 037402 052737 001 177572 BIS #BITO,MMRO sENERGIZE MEMORY MANAGEMENT 
10117 037410 005037 002126 CLR RLFLAG 
10118 037414 012700 002666 1$: MOV #CONFIG+2,R0 sMOVE 2ND WORD OF CONFIG TO RO 
10119 037420 042710 02 2$: BIC #BIT13, (RO) ;CLEAR BACKGROUND VALID BIT 
10120 037424 062700 ADD #4 ,RO ; INCREMENT TO NEXT BANK 
10121 037430 020027 003620 CMP RO, #3620 ; DONE? 
10122 037434 003771 BLE 2$ ;NO - BRANCH 
10123 037436 POP RO 
037436 012600 MOV (SP)+,RO 
abies 037440 207 RETURN 


—_—_— ee ee — 


-_ —— a ld ummm a ‘ama te 


' CVMJAAO MSV11-J MEMORY DIAG. 
'UNRELOCATE PROGRAM 


cme eee - 


M/ 
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SEQ 0297 


10128 037442 


; *SUBTEST MOVE BANKS 
10129 ;MOVE 3/4 OF A 
0130 ;CALLING SEQUENCE 
10131 ;RO = DESTINATION BANK 
0132 ;R1 = SOURCE BANK 
10133 037442 104415 SAVREG 
037 004737 037610 L USERMAP 
10135 037450 104416 RESREG 
10136 037452 10441 SAVREG 
10137 037454 072027 000011 ASH #9. ,RO 
10138 037460 072127 000011 ASH #9. ,R1 
10139 037464 012702 177650 MOV #UIPAR4 ,R2 
tet 037470 012703 000200 MOV #200,R3 
10142 037474 010122 MOV R1,(R2)+ 
10143 037476 060301 ADD R3,R1 ; BUMP 
10144 037500 010122 MOV R1,(R2)+ 
ieteg 037502 060301 ADD R3,R1 
10147 037504 010022 MOV RO,(R2)+ 
10148 037506 060300 ADD ° 
10149 037510 010022 MOV RO, (R2)+ 
eset 037512 060300 ADD R3,RO 
10152 037514 USER 
037514 052737 140000 177776 5 tallies 
10153 037522 BMOV 100000 , 140000 ,,SIZE/2 
037522 004537 041024 JSR RS,BLOCKS 
037526 020000 SIZE/2 
037530 140000 140000 
037532 100000 100000 
. DSABL CRF 
10154 037534 104417 KERNEL 
10156 037536 012702 177650 MOV #UIPAR4 ,R2 
10158 037542 010122 MOV Ri, °° 
10159 037544 0603501 ADD R3,R1 ; BUMP 
10160 037546 010122 MOV Ri, a 
etre. 037550 030 ADD RZ 
1016s 037552 010022 MOV RO,(R2)+ 
10164 037554 0300 ADD R3,RO 
10165 037556 010022 MOV RO, (R2)+ 
10166 037560 0300 ADD R3,RO 
10167 
10168 037562 USER 
037562 052737 140000 177776 I aware 
10169 037570 BMOV 100000 , 140000 , SIZE/4 
037570 004537 041024 JSR RS,BLOCKS 
037574 010000 SIZE/4 
037576 140000 140000 


BANKMOV:SUBTST <<MOVE BANKS>> 


§FSSSSESSESSSSSSS SS SS SS SS SSS SSS SSS SSSSSSSSSSESSSSESSESSE SSSR SSSRSHE EKER ERE RRR ES 


ee 





;MAP 1ST HALF BANK 
BY 4K 


;GO TO USER MODE 


;MOV 1ST HALF BANK 


;ENTER KERNEL MODE 


;MAP 2ND HALF BANK 
BY 4K 


;GO TO USER MODE 


sMOV 3ND FOURTH OF BANK 


——— — 


— ew owe 


— —— ee oe <oe 


: ee 


N7 
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037600 
10170 037602 
1017 


171 
10172 037604 
10173 037606 


100000 100000 
. DSABL CRF 
104417 KERNEL ;ENTER KERNEL MODE 
104416 RESREG | 
000207 RETURN 


Se quem 


SEQ 0298 


——— —_———-— —_— * 


' 
CVMJAAO MSV11-J MEMORY DIAG. 
MOVE BANKS 


10176 037610 
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USERMAP:SUBTST <<SUBR MAP USER TO NEW BANK>> 


jPSOSSSSSSSSSSESESESSSSSSSSSSSSSS ASAT SASSER ESHER ER ET ERE REE RE SES ESTEE EE EEE SE OES 
SUBR MAP USER TO NEW BANK 


; *SUBTEST 
jPESSSESEESSSS SSS SESSSSSSERESSESESESETESEAESS ESSERE SHEEETES EE EEE SESE KEEEEEEEEOES 


10177 0376190 012701 177640 #UIPARO,R1 ;COPY KERNEL PAR'S € PDR'S (0-3) 
10176 037614 012702 172340 MOV #KIPARO ,R2 
10179 037620 012703 177600 MOV PDRO,R3 
037 12704 172300 @KIPDRO ,R4 
10181 037630 012705 000004 MOV #4,R5 
10182 037634 012221 1$: MOV (R2)+,(R1)+ 
10183 037636 011423 MOV (R4),CR3)+ 
setae 037640 077503 SOB RS5,1$ 
10186 037642 013700 002310 MOV NEWBANK , RO 
10187 037646 072027 000011 ASH #2. ,RO ;BANK 1 STARTS AT 100,000 LESS 6 LSB'S 
10188 ;FOR MEMORY MANAGEMENT = 1000 
10189 037652 012705 000004 MOV #4 RS 
10190 037656 010021 2$: MOV RO,(R1)+ ;SETUP UIPAR(4-7) 
10191 037660 2700 000200 ADD #200,RO ;BUMP ADDRESS 4K 
10192 037664 011423 MOV CR4),(R3)+ ;SETUP UIPDR(4-7) 
10193 037666 077505 SOB R5.2$ 
eg tt: 0376740 000207 RETURN 
10196 037672 NEWKERNEL : SUBTST <<SUBR SETUP KERNEL PAR'S FOR NEW BANK>> 
Nee iii iti titi ttt iti it tit titi titi titi iti iti is. 
; *SUBTEST SUBR SETUP KERNEL PAR'S FOR NEW BANK 
Sitti iri rir rit iii iit iit iti titi ti iti iiiiiiitititi tii ii titi) 
10197 037672 PUSH RO,R1,R5 
037672 004 MOV RO,-CSP) 
037674 010146 MOV R1,-CSP) 
037676 010 MOV RS,-CSP) 
10198 037700 012700 172340 MOV #KIPARO,RO 
10199 037704 013701 002310 MOV NEWBANK , 
10200 037710 072127 000011 ASH #9. ,R1 sBANK 1 STARTS AT 100,000 LESS 6 LSB'S 
10201 ;FOR MEMORY MANAGEMENT = 1000 
10202 037714 012705 000004 MOV #4,R5 
10203 037720 010120 1$: MOV R1,(RO)+ sSETUP KIPAR(0-3) 
10204 037722 062701 000200 ADD #200,R1 
10205 037726 077504 SOB R5,1$ 
10206 037730 POP R5,R1,RO 
037730 012605 MOV (SP)+,R5 
037732 012601 MOV (SP)+,R1i 
037734 0126 MOV (SP)+,RO 
1980" 037736 000207 RETURN 
10209 037740 MAPKERNAL :SUBTST <<SUBR MAP KERNAL PARS 4 AND 5 TO A BANK>> 
SERRE ERE SESE EEREEER ERE EEES EEE SEES EREREEEESEEREEEEEEEEEEER ES ERS EERE R EERE EEE ES 
; *SUBTEST SUBR MAP KERNAL PARS 4 AND 5 TO A BANK 
Pitti iit iii ii iiititii ii ites titi titi ritii iii iit iti titi iii itir iti iti iii 
10210 
10211 037740 013705 002102 MOV BANK,RS ;MOV BANK NUMBER TO R5 
1 037744 072527 000011 ASH #9. ,R5 :R5 ENTERS aaa LESS SHIFT TO CREATE MAPPING 
10213 037750 013737 172350 002272 MOV KIPARG, wren ;SAVE OLD P 
10214 037756 010537 172350 MOV R5,KIPAR4 ;GET NEW PAR S 
10215 037762 705 000200 ADD #200,R5 ; 
10216 037766 010537 172352 MOV RS,KIPARS ; 
10217 037772 000207 RETURN ; 


— 


_ CVMJAAO Ho oe 
— SUBR 


10218 
| 10219 037774 


10220 
10221 037774 
037774 


040022 
10226 040024 
10229 
10230 040026 


10231 040026 


10234 040050 


MEMORY 


013737 
062737 
013737 
000207 


DIAG. 
KERNAL PARS 4 AND 5 TO A 


172350 
000011 


000200 


002272 
000200 
002272 


C8 
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BANK SEQ 0300 


NEWLOAD:SUBTST <<SUBR SETUP KERNEL PAR'S FOR NEW LOADER BANK>> 

§EREEEEEEEEEEEE EERE EEREREE EERE ER ERE EREESREEEEEEE EERE EERSTE EERE EERE EE OE EES 

; *SUBTEST SUBR ETUP KERNEL PAR'S FOR NEW LOADER BANK 

{EEEEEEEEREREEEEERERERERESEREERERERES EES EEE AAEEEEE SESE EEEEEEEEEE REE E EERE E SEER 
Fo ea THE DESTINATION BANK 


MOV RO,-(SP) 
Muy R1,-CSP) 
MOV #KIPAR4 ,R1 
ASH #9.,RO ;BANK 1 STARTS AT 100000 LESS 6 LSB’S (1000) 
MOV RO,(R1)+ ;SETUP KIPAR4 
ADD #200 ,RO 
MOV RO,CR1)+ ;SETUP KIPARS 
POP R1,RO 
MOV (SP)+,R1 
MOV (SP)+,RO 
RETURN 
UNMAP: SUBTST <<SUBR UNMAP KERNAL PAR'S 4 AND 5>> 
SESSA ESE EERE SEEKERS EERE SEKEEKEEESRSEEEESEE KE RERECESSE 
;*SUBTEST UNMAP KERNAL PAR’S 4 AND 5 
SESE REESE SSSR CESSES EREKESASESRSE SESE ESCESESESEEEEEESEES 
172350 MOV SAVPAR , KIPAR4 sRESTORE KIPAR4 
002272 ADD #200, SAVPAR 200 FOR NEXT PAR 
172352 rune SAVPAR , KIPARS ; RESTORE KIPARS 


PAR’S 4 AND 5 
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_ SUBR UNMAP KERNAL SEQ 0301 


| 10237 040052 EXBANK: SUBTST <<SUBR EXAMINE BANK>> 
' § FESS SSSSSSSSES SSS SSSSS SESS SSS SSSS ESSERE CESSES ESE ESE ERESEE EERE KARR EEE EES 
: ; SUBTEST NE BANK 
§ FSSSSSSSSSSSS SSS SSSESSESSESSESSES SSS ESSERE TESEES ESAS SSSR SEER EERE EEE 
10238 ;DOES THE FOLLOWING: 
10239 3(1) SETS UP “BANKINDEX” AND R1 BASED ON VALUE OF “BANK”. 
10240 3(2) SETS THE "MKFLAG" IF THE BANK IS ECC. 
10241 3(3) SETS THE "KPFLAG” IF THE BANK IS THE PROTECTED REGION OF ECC MEMORY. 
10242 :(4) SETS THE "ACFLAG" IF THE BANK CAN BE ACCESSED BY THIS CPU. 
10243 3(5) SETS THE "PFLAG" IF THE BANK IS IN PROGRAM SPACE. 
10244 :(6) SETS THE "RRFLAG" IF RELOCATION IS REQUIRED TO TEST THIS BANK; HOWEVER, 
10245 ; IT COMPLEMENTS THIS FLAG IF THE RELOCATION FLAG "RLFLAG" IS SET (THIS IS 
10246 ; NECESSARY FOR THE USE OF THE RECURSIVE "MODE" SUBROUTINES). THE “RRFLAG" 
10247 ; IS ALWAYS SET TO DISABLE TESTING IF FIELD SERVICE MODE “SELECTED BANKS” 
10248 ; ARE BEING TESTED AND THIS BANK IS NOT SELECTED. 
10249 3(7) SETS THE "BMFLA IS A BAD MEMORY; HOWEVER, IT COMPLEMENTS 
0250 ; THIS FLAG IF THE "WORST" FLAG IS NOT SET (THIS IS NECESSARY FOR THE USE 
10251 ; OF THE RECURSIVE "MODE" SUBROUTINES). 
0252 :(8) SETS THE “INTFLAG” IF THE BANK IS INTERLEAVED. 
10253 :(9) SETS THE “INT64K” FLAG IF THE BANK IS INTERLEAVED ON 64K WORD BOUNDS. 
0254 (10) SETS THE "SKIPMK" FLAG IF THIS BANK IS INTERLEAVED, AND HAS ALREADY 


10256 

10257 040052 
040052 
040056 

10258 040060 
040060 
040064 

10259 040070 
040070 

10260 040076 
040076 
040102 
040106 

10261 040112 
0401 
040116 


1 
10262 040126 
10263 
10264 


S2 

10269 040160 
10270 040164 
040164 


010046 
010146 


010246 


005037 
005037 


012737 


012700 


002120 
002114 


177777 


177777 
000002 


002106 
002664 
002116 


002116 


002664 


002114 


eS —_ 


BEEN TESTED. 


PUSH RO,R1,R2 
MOV R1,-CSP) 
MOV R2,-CSP) 
CLEAR MKFLAG,KPFLAG 
CLR MKFLAG 
CLR KPFLAG 
SET ACFLAG 
CLEAR PFLAG,RRFLAG,BMFLAG 
CLR PFLAG 
CLR RRFLAG 
CLR BMFLAG 
CLEAR INTFLAG, INT64K , SKIPMK 
CLR INTFLAG 
CLR INT64K 
CLR SKIPMK 
MOV BANK ,R1 
ASL Ri 
ASL Ri sR1 <- Ri « 4 
MOV Ri, BANKINDEX 
BIT #BIT6,CONFIGCR1) ;PROTECTED REGION OF ECC MEMORY? 
BEQ 1$ ;NO - SKIP 
SET KPFLAG 


MOV #-1,KPFLAG 


MOV #BIT1,RO 
IF RO SET.IN CPUBIT AND RO OFF.IN CONFIG(R1) 
art RO, CPUBIT 


L 
BIT RO,CONFIG(R1) 
BNE L374 


CLR ACFLAG 
END ;OF IF RO 
L374:ssisci 


a 
EE LL TT ——s 


CVMJAAO MSV11-J MEMORY 
| SUBR EXAMINE BANK 


10273 040204 


10298 
10299 
74 

10300 040374 
10301 040402 
10302 040404 
040404 

10303 040412 
10304 040420 
10305 040422 
0422 

10306 040430 
0440 

10309 040446 
040446 
040450 
040452 

10310 040454 


005737 
001415 
016102 
000302 
042702 
020227 
003405 
012737 
000137 
032761 
001403 
012737 
032761 
001406 


012737 
012737 


012737 
032761 
001421 
012737 


012737 


012602 
012601 
012600 


DIAG. 


002116 
002666 
177770 
000003 


177777 
040446 


177777 
000200 


177777 
177777 
002126 
002124 
000001 
177777 
002600 
002130 
002002 
040000 


177777 
010000 


177777 
004000 


177777 
000040 


177777 


_ + Oe SS —_———_— = - —— 
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002130 
002666 


002120 
002664 


002122 
002124 


002664 


002130 


002666 


002124 


002666 


002136 
002666 


002140 
002664 


002342 


2$: 


3$: 


5$: 


6$: 


8$: 


9$: 


10$: 


ENEXBK: 


a 
teeta 
#tC7,R2 

R 


BMFLAG 


ENEXBK 
#BIT8,CONFIG+2(R1) 
MKFLAG 
#BIT7,CONFIGCR1) 
PFLAG, RRFLAG 


RLFLAG 

6$ 

RRFLAG 
er sens 


BMFLAG 
WORST 
9$ 


RRFLAG 

IF SELONLY 
#BIT12,CONFIG+2(R1) 
ENEXBK 

INTFLAG 
#BIT11,CONFIG+2(R1) 
10$ 

INT64K 
#BITS,CONFIGCR1) 
ENE XBK 

SKIPMK 

R2,R1,RO0 


SEQ 0302 


;ACTIVE MEMORY? 
;BRANCH IF NOT 


;ISOLATE MEM TYPE BITS 
;IS THIS AN ILLEGAL MEM TYPE? 
;BRANCH IF NOT 

;SET BAD BANK FLAG 


MOV 
;JUMP OVER REST OF FLAG TESTS 
:1S THERE ~~ THERE ? 


SK 
;YES. - SET MKFLAG 
;BANK = PROGRAM SPACE? 
NO - SKIP 


#-1,BMFLAG 


;I1S PROGRAM RELOCATED? 
;NO - SKIP 


tYES - COMPLEMENT RELOCATION REQUIRED FLAG 
ERRORS (PRESENT IN THIS BANK 


‘ee big 4" WORST FIRST PASS? 


EMENT BAD MEMORY FLAG 
TST SELONLY 
BEQ L375 
BIT #81114,CONFIG+2(R1) 
BNE L375 


BMFLAG 3NO - COMPL 
IF SELONLY is TRUE AND #681714 OFF.IN CONFIG-2(R1) 


MOV #-1,RRFLAG 


L37 
;I1S THIS BANK INTERLEAVED? 
;BRANCH IF IT IS NOT 


MOV #-1,INTFLAG 
;IS THIS BANK INTERLEAVED WITH 64K BOARDS? 
;BRANCH IF IT IS NOT 


MOV #-1,INT64K 
;SHOULD THIS BANK BE TESTED? 
;BRANCH IF IT SHOULD 


MOV #-1,SKIPMK 
MOV (SP)+,R2 


MOV (SP)+,R1 
MOV (SP)+,RO 


;RESTORE REGISTERS 


ee 


CVMJAAO MSV11-J MEMORY DIAG. 
EXAMINE BANK 


 SUBR 
| 10313 040456 


10332 


040510 
040516 


040520 


10333 
10334 
10335 
10336 


10340 


005237 
022737 
000207 


012737 
000207 


005237 
023737 
000207 


mee — —<- - -_ - ——<_ . 


F8 
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BANKOK: SUBTST <<SUBR BANK OK?>> 

5 EEEEEREREEEEREEEERESEEEREREE EERE EEA EREE REAR ER EREEEEEEEEEREREEE SE REE REET EERE EES 

; *SUBTEST SUBR BANK OK? 

5 ERREEEEEEEREREEERERESERESERERERESES SESE REE EEE SEERA EERE ESSE EE EEE EERE EEE EERO EES 
;TEST TO INSURE THAT THE TYPE OF MEMORY IN THE PRESENT BANK 
;IS OF THE TYPE WE ARE TESTING "TMFLAG”. 
;RESULT IS RETURNED IN THE CONDITION CODES (OK = (=0)). 

002134 MOV TMFLAG ,RO 


RO 
002120 MKFLAG,R1i 
RO,R1 


OK = (=0K) 


INCRPT: 

INCPAT: SUBTST <<SUBR INCREMENT PATTERN TESTING >> 

St t tt ttt titi tttttitittittitttititiititittitittttitititititittititi iti t itt i ttt ttt 

;*SUBTEST SUBR INCREMENT PATTERN TESTING 

Pitti ttt titi ttt tttititititttiti titi ttttitttit tit ttiti ttt itit iit tt tit it ttt t it titi titi th 
; INCREMENT THE PATTERN & SET UP THE CONDITION CODES 

;RESULT - RY SET INDICATES OVERFLOW 


002112 INC PA 
000030 002112 CMP #30,PATTERN ;SET UP CONDITION CODES 
RETURN ;NOT EQUAL TO ZERO IS GOOD (NO OVERFLOW) 
SETPAT: 
HIPAT: SUBTST <<SUBR SET HIGHEST PATTERN TESTING TYPE>> 
SEEKER ERE REE EREREEEEER ERE REEER EERE EREEAE EERE EEREREEEEEEE EEE EEEEEE EEE SEER EEE ED 
;*SUBTEST SUBR SET HIGHEST PATTERN TESTING TYPE 
SERRE EEE EEE REAR ERE AREER EREE REA EA EERE EE EERE EER EEEEEEEEEEEEE EEE EEEEEEEE EER EERE 
#27 , PATTERN ;SET HIGHEST PATTERN 


000027 002112 


INCBNK: SUBTST <<SUBR INCREMENT BANK & TEST>> 

SERRE AE EERE REE EERE EEE ERR ERES SERRE EEE EE REE EEE EER EEE EEE EE REE EEEEE EEE REE EEE EES 

;*SUBTEST SUBR INCREMENT BANK & TEST 

EERE REE EERE EER ER EE EERE EERE EERE ERE EEE REAR EEE REESE RARER EEE EE EEE EEEEEEE EEE EEE EE 
=" RETURNED IN CONDITION CODES 


002102 I BANK 
002556 002102 rr LASTBANK , BANK ;TOO FAR? 


SEQ 0303 


een ee 


—_— —_- J ——————— eee 


_CVMJAAO MSV11-J MEMORY DIAG. 
| SUBR BANK & TEST 


INCREMENT 
10343 040534 


oo oe ——_ - 


10 

10350 040534 

10351 040536 
040536 


10352 040544 
040544 
040550 
040552 
040556 

10353 040556 

10354 040562 

10355 040 

10356 040570 

10357 040572 

10358 040600 

10359 040602 

10360 


104472 
012737 


mem wis —— ~- -_ 


G8 
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QUIT: SUBTST <<QUIT ROUTINE>> 
SESS SESSSSSSSSSESSSSSESRSS ESSE SS SS SASS SEEKERS EEK ECERECER ERED 
; *SUBTEST QUIT INE 
§ FEE ESESSESESSSSSSSEAESSESSRSESS SSE SEES CEE SESE SSR SERRE RES ECR EES 
; INITIALIZE ALL CSR’'S 
;UNRELOCATE IF NECESSARY 
OUT ANY DBE'S 


FLUSH 
; TURN OFF MEMORY MANAGEMENT 
;TURN OFF THE Q-BUS MAP 


;HALT 

ECCINIT ; TRAP ON DOUBLE BIT ERRORS (NORMAL ) 

SET4 #QUIT ;TRAPS TO 4 GOTO QUIT1 
040600 000004 MOV #QUIT1,4 

.DSABL CRF 

IF RLFLAG IS TRUE THEN $CALL UNRELOCATE 
002126 TST RLFLAG 

BEQ L376 
037214 a0 JSR PC,UNRELOCATE 
TERRE ES 

022200 CALL MTO0030 ;FLUSH OUT DBE'S 

DEENERGIZE ;TURN OFF MEMORY MANAGEMENT 
002454 ae a ;IS THIS AN 11/83,11/23-B OR 11/23? 
000040 172516 Stet #BITS ,MMR3 ; TURN OFF THE Q-BUS MAP 

ALT 


SEQ 0304 


| 


10363 040604 


10364 040604 
10365 rete 


10370 040636 
040636 


10371 
10372 040636 


040652 

10384 040652 
040652 
040656 

10385 040660 
10386 040664 
0664 

10387 040664 


10397 040716 
10398 
10399 040720 


10400 040720 
040720 


(- —— ————< ee 


010346 


TTT 


CVMJAAO MSV11-J MEMORY DIAG. 
QUIT ROUTINE 


040636 
002352 
002350 


003670 


002126 
037214 


002436 
022200 
000001 
002576 
037442 
002454 


000040 172516 1 


APTDOWN: SUBTST 


EXIT: 


SUBTST 
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<<HALT PROGRAM>> 


§ FSS SESSESESS SESS ESSE SSS ESSE SSS SSSS SESS KEES SE RASS SESE REECE KEEES 


; *SUBTEST 
’ 
| EEEEEEEEEREREEERERERE EEE EEERE EERE ARES ESSERE EE EERE EERE EERE EEEEEE EERE REECE OREO 


CALL SHUTUP 
IF APTFLAG IS TRUE OR ACTFLAG IS TRUE 


EXIT2: 


$EXHALT: 


SHUTUP : 


BR 
ELSE 


HALT 
JMP 


HALT PROGRAM 


START 
END ;OF IF APTFLAG 


SUBTST 


<<SHUTDOWN DIAGNOSTIC>> 


TST APTFLAG 
BNE L377 


TST ACTFLAG 
400 
L377:sssics 


BR L401 


L401l:iiic3 


EERE ESEEEREREREEESEEEKEREREK EERE EREEEERERAEEEEKERERERESEEESEEEEEESEERESEE EEE ES 


; *SUBTEST 
v 
REESE EEK ESEEESEREREEEEEREREEEEEREREEEEKEEKEREERERERERERESESESE SESE RE 


sINTTI 


SHUTDOWN DIAGNOSTIC 
ALIZE ALL CSR'S 
OCAT 


OU 
RESTORE LOADERS 


UNMAP 


N OFF MEMORY —_ 
THE Q- ~~ 


ECCINIT P ON DOUBLE BIT ERRORS CNORMAL ) 
IF RLFLAG IS TRUE THEN $CALL UNRELOCATE 


TST RLFLAG 
BEQ L402 


JSR PC, UNRELOCATE 


TST QUICK 
BNE L403 


L403:sisae3 


; TURN OFF MEMORY MANAGEMENT 
DOES THIS PDP-11 HAVE 22-BIT ADDR? 


; TURN OFF Q-BUS MAP 


IF QUICK IS FALSE 
CALL MTO0030 ;FLUSH OUT DBE'S 
END ;OF IF QUICK 
MOV #1,RO ;DESTINATION BANK 
MOV LOADHOME , R1 ; SOURCE BANK 
CALL BANKMOV 
DEENERGIZE 
TST NO22BIT 
BNE ;BRANCH IF NOT 
are #BITS ,MMRS 


<<APT SHUTDOWN SEQUENCE >> 


gs EREKKKEREEESR EEE E EERE REREREREEEEEEERESES EERE ERESESEEEESES ESE SESE SESE SESS 


; *SUBTEST 
{ERE RERER ERE EERE A AEE REAR EEE EEEE EERE EERE EERE EEEEEESE EERE ERERE SES ES EC EOE ES 


MAP 





APT SHUTDOWN SEQUENCE 
#0 


3,-(SP) 


SEQ 0305 


;MAP SUPERVISOR SPACE ae aS tsp TO BANK #0 


ee eee 


18 
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_APT SHUTDOWN SEQUENCE 


| NC SEQ 0306 
| 040722 012703 000000 MOV #0,R3 
| 040726 004737 035716 CALL § MAPPER 
040732 012603 a MO 
Vv +, 
| 10401 040734 TESTAREA ;ENTER TEST MODE a 
040734 053737 002552 177776 BIS TESTMODE , PSH ;GO TO SYSTEM TEST MODE 
10402 040742 012737 040720 060024 MOV #APTDOWN,FIRST+24 
10403 040750 012737 000340 060026 MOV #340 ,FIRST+26 
10404 040756 012737 000000 120720 MOV #0, FIRST +APTDOWN 
10405 040764 104417 ;ENTER KERNEL MODE 


KERNEL 
10406 040766 000000 APTHLT: HALT 


—— ee 


~—_- «<—- * eer ttn ee S| mmm me - -_- = — — ——_— . 
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APT SHUTDOWN SEQUENCE SEQ 0307 | 
| 10409 040770 SUBTST <<BLOCK MOVE SUBROUTINE>> 
§ FS SSSSSSSSSSSSSSSSSSSSSSSSSSESSESSESSSESESSSESSSEEESSEKESCEESSSESSASEESSSE SRE KES eRE EERE 
; «SUBTEST BLOCK MOVE SUBROUTINE 
§ FSSSSSSESSSESSSSSSSSSSSSESSSSSSSS SSS SS SESS SSESSESSSSESSES ERE SESE EERE SERRE ESE EEEEE 
10410 ;BLOCK3 HAS 3 ARGUEMENTS 
10411 ;BLOCK2 HAS 2 ARGUEMENTS 
tais sBLOCKi1 HAS 1 ARGUEMENTS 
10418 :ALL ARE CALLED BY THE BMOV MACRO 
10416 040770 BLOCK1: PUSH  R0O,R1,R2 
040770 010046 MOV RO, -(SP) 
040772 010146 MOV R1,-(SP) 
040774 010246 MOV R2,-(SP) 
10417 040776 012702 177640 MOV #FASTCITY,R2 
10418 041002 012701 000020 MOV #16. ,R1 
10420 
10421 041010 BLOCK2: PUSH  RO,R1,R2 
041010 010046 MOV RO, -(SP) 
041012 010146 MOV R1,-(SP) 
041014 010246 MOV R2,-(SP) 
10422 041016 012701 000020 MOV #16. ,R1 
10423 041022 000404 BR 2$ 
10425 041024 BLOCK3: PUSH  RO,R1,R2 
041024 6 MOV RO,-(SP) 
041026 010146 MOV R1,-(SP) 
041030 010246 MOV R2,-(SP) 
10426 041032 012501 MOV (R5)+,R1 
10427 041034 012502 2$: MOV (R5)+,R2 
10428 041036 012500 3$: MOV (R5)+,RO 
10430 041040 012022 1$: MOV (RO)+,(R2)+ 
10431 041042 077102 SOB Ri,1$ 
10432 041044 POP R2,R1,RO 
041044 012602 MOV (SP)+,R2 
041046 012601 MOV (SP)+,R1 
041050 012600 MOV (SP)+,RO 
10433 041052 000 


205 RTS R5 
10434 ._DSABL LSB 


—__ << = 


KB 
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FIELD SERVICE SEQ 0308 
-SBTTL FIELD SERVICE MODE 


10437 
10438 041054 FIELDSERVICE : SUBTST <<SUBR FIELD SERVICE COMMAND MODE>> 


§ FS SSSSSSSSESSSSSSSESSSSESSESSSSSSESSSSSSSSSESSSSESSERSESSSSSSRSESEKSESREKERESE ESE KERR ESE 


; *SUBTEST FIELD SERVICE COMMAND MODE 
SEES EEEEEEEEERERESEREEERERE SRE EESEEA EERE EREEEREEERER EERE TERE SEER RET EER EERE 
10439 041054 104415 SAVREG 
10440 041056 TYPE MSGO20 ;FIELD SERVICE COMMAND MODE 
041056 104401 066116 TYPEIT ,MSGO20 
.DSABL CRF 
10442 041062 IF RLFLAG IS TRUE OR NOFSMODE IS TRUE 
041062 005737 002126 TST RLFLAG 
1066 001003 BNE L404 
041070 005737 002426 TST 
041074 001404 BEQ L405 
041076 L404: sssee3 
10443 041076 TYPE MSGO48 ;NOT AVAILABLE NOW - TRY LATER! 
041076 104401 067557 TYPEIT ,MSGO48 
.DSABL CRF 
10444 041102 104416 RESREG 
10445 041104 000207 RETURN 
10446 041106 END ;OF IF RLFLAG 
0411 L405 ssssc3 
10447 0411 005737 002544 TST CACHKN 
10448 041112 001402 BEQ 1$ 
10449 041114 PUSH CONTRL ;SAVE CACHE STATUS 
041114 013746 177746 MOV CONTRL,-(SP) 
10450 041120 1$: PUSH CSRNO, KAMIKAZE ;SAVE CSR & KAMIKAZE STATUS 
041120 013746 002152 MOV CSRNO, -(SP) 
041124 013746 002006 MOV KAMIKAZE, -( SP) 
10451 041130 104424 CACHOFF ; TURN CACHE OFF 
10452 041132 SET KAMIKAZE 
041132 012737 177777 002006 MOV #-1,KAMIKAZE 
10453 041140 FSi: TYPE MSG026 ; COMMAND : 
041140 104401 067007 yin? —. 
10454 041144 104414 RDDEC sREAD A DECIMAL NUMBER 
10455 041146 oP RO ;COMMAND --> RO 
041146 012600 MOV (SP)+,RO 
10456 041150 020027 000022 MP RO, #18. 
10457 041154 101403 BLOS 1$ 
10458 041156 TYPE MSGO21 
041156 104401 066137 TYPEIT ,MSGO21 
.DSABL CRF 
10459 041162 000766 BR FS1 
10460 041164 1$: CASE RO 
041164 010046 MOV RO,-(SP) 
041166 006316 ASL aSP 
041170 004737 041242 JSR PC,L406 
10461 041174 041252 F SCMDO ;EXIT FIELD SERVICE COMMANDS 
1 041176 041354 FSCMD1 ;READ CSR 
10463 041200 041464 FSCMD2 ;LOAD CSR 
041 041632 FSCMD3 ;EXAMINE MEMORY 
10465 041204 042106 FSCMD4 ;MODIFY MEMORY 
10466 041206 042426 FSCMDS ;SELECT BANK & PATTERN 
10467 041210 043344 FSCMD6 ; TYPE CONFIGURATION MAP 





| 


10468 


10480 041242 
42 


2 
041242 
041244 


041246 
10481 041250 


_CVMJAAO MSV11-J MEMORY DIAG. 


043352 
3644 


L8 
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SUBR FIELD SERVICE COMMAND MODE 


F 
END 


F SCMD7 
F 


FS1 


8 
;OF CASE 


;SOB-A-LONG TEST 
SERROR SUMMARY 
;REFRESH TEST 


SEXIT KAMIKAZE MODE 
; TURN CACHE OFF 

; TURN CACHE 

;TEST ONLY SELECTED BANKS 
; RESUME Li 3B ALL BANKS 
sENABLE TRACE 

;DISABLE TRACE 


L406: i3c533 


ADD (SP)+,aSP 
MOV @(SP)+,-(SP) 


SEQ 0309 


ee ee eee 


M8 oe ae 
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FIELD SERVICE COMMAND MODE SEQ 0310 | 
10484 041252 FSCMDO: SUBTST <<COMMAND 0 EXIT>> 
58888 EESEEEESEESEEEEESSAESSSSSE SESS RARE EAEREREE RARER ESHER ERE EREDAR EERE EE EES | 
; *SUBTEST COMMAND 0 EXIT 
5866 SEEEEEEEEEESSEEESSEEESSEREEESERES ESSERE EERE REE EERER REESE EERE TERE RE HERE EROS 
10485 041252 YPE MSG103 ;LEAVING FIELD SERVICE MODE 
041252 104401 070535 TYPEIT ,MSG103 
-DSABL CRF 
10486 041256 062706 000002 ADD #2,SP | 
10487 041262 IF SKIPKAMI IS TRUE 
041262 005737 002010 TST SKIPKAMI 
041266 001 BEQ L407 
10488 041270 062706 000002 ADD #2,SP ; THROW AWAY OLD KAMIKAZE FLAG | 
10489 041274 005037 002010 CLR SKIPKAMI 
10490 041300 SE 
041 000402 BR L410 
041302 L407 :sssaee 
10491 041302 POP KAMIKAZE ;sRESTORE OLD KAMIKAZE FLAG 
041 012637 002006 MOV (SP)+, KAMIKAZE 
10492 041306 END ;OF IF SKIPKAMI 
041306 L410:iisias 
10493 041306 POP CSRNO 
041306 012637 002152 MOV (SP)+,CSRNO 
10494 041312 005737 002544 TST CACHKN 
10495 041316 001414 BEQ RESO 
0413 IF CACHKN EQ CACHKF ;IF CACHE IS OFF 
0413 023737 002544 002550 CMP CACHKN, CACHKF 
041326 001003 L41i 
10497 041330 062706 000002 ADD #2,SP ; THROW AWAY CACHE STATUS 
10498 041334 ELSE 
1334 000405 BR L412 
041336 L4ll:issssss 
10499 041336 005737 002544 TST CACHKN 
10500 041342 001402 BEQ RESO 
10501 041344 POP CONTRL ;RESTORE CACHE STATUS 
041344 012637 177746 MOV (SP)+,CONTRL 
10502 041350 END ;OF IF CACHKN 
041350 L4le:isisis 
10503 041350 104416 RESO: RESREG 
1Oabe 041352 000207 RETURN 
10506 041354 FSCMDi: SUBTST <<FS COMMAND i READ CSR>> 
TWHTTTITIT TT Tit titi ttt ttt tii titi titi i iti tli titi ltititititititiitiitiiih 
;*#SUBTEST COMMAND i EAD CSR 
WItiii tit iiitii titi titi ti iii titi iiitiiiitititi ti ii iti iti titi tititi titi itiili tl. 
10507 041354 004737 044670 CALL WHICHCSR 
10508 041360 010637 002306 MOV SP ,FSSTACK 
10509 041364 SET4 #RES1 ; TRAPS TO 4 GOTO RES1 
041364 012737 041430 000004 _ = 
10510 041372 104426 READCSR 
10511 041374 SET NOERROR 
041374 012737 177777 002430 MOV #-1,NOERROR 
10512 041402 104026 ERROR +26 ;USE ERROR ROUTINE FOR PRINTOUT 
10513 041404 RES4 sRESET TRAPS TO 4 TO DEFAULT 
0414 012737 034114 000004 MOV #TIMEOUT ,4 
041412 022737 000005 004010 CMP #5,PROTYP ;IS THIS AN 11/83/84 ? | 
041420 001002 BNE 101$ ;BRANCH IF NOT 
| 


—_—<— 
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FS COMMAND 1 READ C 


041422 
041426 


10514 041426 
10515 041430 
430 


10518 041462 


005037 


000207 
104401 
013706 


012737 
022737 
001002 
005037 


000207 


177766 


101$: 
RES1: 
066763 
002306 
034114 000004 
000005 004010 
177766 
101$: 


CLR 


ABL 
RETURN 
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CPUERR 


MSGO25 


»MSGO25 
CRF 
FSSTACK ,SP 
@TIMEOUT ,4 
#5,PROTY 


10i$ 
CPUERR 


CRF 


N8 


;CLEAR OUT THE CPU ERROR REGISTER BITS 
; THAT A EXPECTED TRAP COULD HAVE SET 


;THIS CSR DOES NOT EXIST 


sRESET TRAPS TO 4 TO DEFAULT 
;IS Ln AN 11/83/84 ? 
H IF NOT 
;CLEAR OUT THE CPU ERROR REGISTER BITS 
; THAT A EXPECTED TRAP COULD HAVE SET 


SEQ 0311 


‘ 
-—=-——_— — 
— et —emmammm - 


LL 





—— ee ee errr cam 


BY 


j 
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S COMMAND 1 READ C SEQ 0312 


10521 041464 


10522 041464 


10529 041520 
20 


10530 041542 

041542 
10531 041546 
10532 041550 

041550 
10533 041554 
10534 041556 
10535 041560 

041560 
10536 041564 
10537 041572 
10538 041574 
10539 041576 

041576 


10540 041602 
10541 041606 
041606 


10542 041630 


004737 
010637 


012737 
104426 
104401 


012737 
104026 
012737 
022737 
001002 
005037 


104401 
104413 
012637 
104425 
104426 
104401 
012737 
104026 
000207 
104401 
013706 


012737 
022737 
001002 
005037 


000207 


044670 
002306 


041576 
067021 
177777 
034114 
000005 


177766 
066747 


002150 


067036 
177777 
066763 


002306 
034114 
000005 


177766 


002430 


000004 
004010 


<<FS COMMAND 2 


LOAD CSR>> 


§ FSS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSESSSSSSSSSSSSKESSSRSSSSRERESEKE REE RE EEOS 
OAD CSR 


§ FS SSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SA SSSSSSSSSSSSSSSSSSSSSSSSREKSSR SAREE SES ETEEES 


FSCMD2: SUBTST 
; *SUBTEST FS 
CALL WHICHCSR 
MOV SP ,FSSTACK 
SET4 @RES2 
MOV @RES2 ,4 
-DSABL CRF 
READCSR 
TYPE MSG027 
TYPEIT ,MSGO27 
.D0S CRF 
SET NOERROR 
ERROR +26 
RES4 
MOV #TIMEOUT ,4 
CMP #5,PROTYP 
BNE 101$ 
CLR CPUERR 
101$: 
-DSABL CRF 
TYPE MSGO023 
TYPEIT ,MSGO23 
.DS CRF 
RDOCT 
POP CSR 
LOADCSR 
READCSR 
TYPE MSGO28 
TYPEIT ,.MSGO28 
.DS CRF 
SET NOERROR 
ERROR +26 
RETURN 
RES2: TYPE MSGO025 
TYPEIT ,MSGO25 
DSABL CRF 
MOV FSSTACK,SP 
RES4 
MOV #@TIMEQUT ,4 
CMP #5,PROTYP 
BNE 101$ 
CLR CPUERR 
101$: 
.DSABL CRF 
RETURN 


;TRAPS TO 4 GOTO RES2 


MOV #-1,NOERROR 
;USE ERROR ROUTINE FOR PRINTOUT 
;RESET TRAPS TO 4 TO DEFAULT 
:IS THIS AN 11/83/84 ? 
;BRANCH IF 
;CLEAR OUT THE CPU ERROR REGISTER BITS 
; THAT A EXPECTED TRAP COULD HAVE SET 
;FIRST CSR WORD 
;READ AN OCTAL NUMBER 


;PUT IN IN LOC “CSR” 
MOV (SP)+,CSR 


;USE FOR PRINTOUT - NOT AN ERROR 


;THIS CSR DOES NOT EXIST 


;RESET TRAPS TO 4 TO DEFAULT 

;1S THIS AN 11/83/84 ? 

;BRANCH IF NOT 

;CLEAR OUT THE CPU ERROR REGISTER BITS 


;THAT A EXPECTED TRAP COULD HAVE SET 


—— A TT —_- oo - 


ew owe oe oe ee 


— eee eee ee 


em meee - = _ _—— ——_—<— . - -_——_ 


SYMUARS MSV11-J MEMORY DIAG. MACRO VO5.01b Friday 15-Feb-85 16:10 Page 343 
‘FS COMMAND 2 LOAD CSR SEQ 0313 





| 10545 041632 FSCMD3: SUBTST <<FS COMMAND 3 EXAMINE MEMORY>> 
| FES SSSSSSSSSSSS SSS SSSSSS SSS SSS SSS SESE SESS SEESESSESRSE CASES SESECESESTERESE RECEDES 
| ; «SUBTEST S COMMAND 3 EXAMINE MEMORY 
§ FSSSSSSSSSSSSS SSCA SS SSSSECESSSESESSKSESSSSSRSSAESSESEASESRSSSRKEKERSEKERESESEEREEEEEE 
| 10546 041632 BANK, NOPAR , PARTHERE .4 
1632 013746 002102 MoV BANK (SP) 
041636 013746 002076 V NOPAR, -(SP) 
041642 013746 002304 HOV PARTHERE -(SP) 
041646 013746 MOV 4,-(SP 
10547 041652 012737 000002 002076 V #2,NOPAR sINDICATE PARITY ACTION 
10548 041660 TYPE  MSG029 ;EXAMINE MEMORY 
041660 104401 067052 TyPEIT ,tsG029 
10549 041664 1$: PE  MSGO31 ;PHYSICAL ADDRESS (0-17775776)?? 
041664 104401 067111 TYPELT .MSGOS1 
10550 041670 104413 RDOCT ;READ OCTAL NUMBER ONTO STACK & $HIOCT 
10551 041672 013737 056146 002102 MOV $HIOCT , BANK ;PUT MSB'S IN BANK 
10552 041700 POP RO ;PUT LSB’'S IN RO 
1700 012600 MOV (SP)+,RO 
10553 041702 000241 CLC 
10554 041704 006100 ROL RO 
10555 041706 006137 002102 ROL BANK 
10556 041712 000241 CLC 
0557 041714 ROR RO 
10558 041716 023737 002102 002556 CMP BANK,LASTBANK ;CHECK FOR BANK TOO HIGH 
10559 041724 003357 BGT ;BRANCH IF TRUE 
1 041726 062700 060000 ADD #FIRST,RO 
10561 041732 032700 000001 BIT #BITO,RO ;CHECK FOR ODD ADDRESS 
10562 041736 001352 BNE 1$ ;BRANCH IF ODD ADDRESS 
10563 041740 020027 157776 CMP RO, #LAST ;CHECK FOR ADDRESS OVER 16K 
041744 101347 BHI ;BRANCH IF OVER 16K 
10565 041746 012737 042020 002304 MOV $3$,PARTHERE  ;INCASE OF ABORTS 
10566 0417 SET4 ss ;TRAPS TO 4 GOTO 4$ 
041754 012737 042026 000004 MOV #4$,4 
DSABL CRF 
10567 041762 BANK ;MAP SUPERVISOR SPACE (TEST AREA) TO BANK 
041762 010346 MOV R3,-(SP) 
041764 013703 002102 MOV BANK ,R3 
041770 004737 035716 CALL § MAPPER 
_DSABL CRF 
041774 012603 MOV (SP)+,R3 
10568 041776 TESTAREA sENTER TEST MODE 
041776 053737 002552 177776 BIS TESTMODE . PSW ;GO TO SYSTEM TEST MODE 
10569 042004 011001 V (RO),R1 
10570 042006 104417 KERNEL ;ENTER KERNEL MODE 
10571 042010 TYPOCS Ri 
042010 010146 V R1,-(SP) ;;SAVE R1 FOR TYPEOUT 
2012 104403 TYPOS ;3G0 TYPE--OCTAL ASCII 
042014 006 BYTE 6 ;;TYPE 6 DIGITS 
042015 ‘BYTE 0 ;;SUPPRESS LEADING ZEROS 
DSABL CRF 
10572 042016 000410 EXCMD3 
| 10574 042020 3$: TYPE  MSGO32 :PARITY ABORT 
042020 104401 067151 TYPEIT ,MSGO32 


DY 
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FS COMMAND 3 MEMORY 


EXAMINE 


SEQ 0314 
| .DSABL CRF 
| pede 042024 000405 BR EXCMD3 
10577 042026 062706 000004 4$: ADD #4,SP ;FIX STACK 
10578 042032 TYPE MSGO33 : ; TIMEOUT TRAP 
042032 104401 067170 TYPEIT ,MSGO33 
-DSABL CRF 
10579 042036 000400 EXCMD3 
10581 042040 104417 EXCMD3: KERNEL ;ENTER KERNEL MODE 
10582 042042 POP 4,PARTHERE , NOPAR , BANK 
042042 012637 000004 MOV (SP)+,4 
042046 012637 002304 MOV (SP)+,PARTHERE 
042052 012637 002076 MOV (SP)+,NOPAR 
042056 012637 002102 MOV (SP)+,BANK 
10583 042062 RES4 ;RESET TRAPS TO 4 TO DEFAULT 
042062 012737 034114 000004 MOV #TIMEQUT ,4 
042070 022737 000005 004010 CMP #5 ,,PROTYP ;IS THIS AN 11/83/84 ? 
042076 001002 BNE 101$ ;BRANCH IF NOT 
porte 005037 177766 sme CLR CPUERR ;CLEAR OUT THE CPU ERROR REGISTER BITS 
; THAT A EXPECTED TRAP COULD HAVE SET 
.DSABL CRF 


10584 042104 000207 RETURN 


10587 042106 


10588 042106 
042106 


10591 042140 

042140 
10592 042144 
10593 042146 
10594 154 


042154 
10595 042156 
10596 160 


04 
10607 042252 
10608 042254 

04 
10609 042262 
10610 


10611 042264 
aeete 042266 


1061 
10614 042270 
042270 


| eee MSV11-J MEMORY DIAG. 
FS COMMAND 3 EXAMINE 


012737 
104401 


104401 


104413 
013737 


012737 
012737 


002102 
002076 
002304 
000004 
000003 
067276 
067111 


056146 


002102 


002102 
060000 
000001 


157776 
042270 
042276 


010346: 
013703 002102 
004737 


012603 
104511 


053737 
011001 
104417 
000410 


104401 


035716 


002552 


067151 


—- ee ee ee . . - - -_- = 


EQ 
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MEMORY 


002076 


002102 


002556 


002304 
000004 


177776 


FSCMD4: SUBTST 


<<FS COMMAND 4 MODIFY MEMORY>> 


Nee eet etait iti i ii iii iri iii iiitii ii iii 
OMMAND 4 MODIFY MEMORY 


; *SUBTEST FS 
{RECESSES SESESESESESESES ESS ESESESESSSSSSSAAEES ES COREE EEETE SESE E REE EEEEEES 
PUSH 


1$: 


3$: 


ANK ,NOPAR ,PARTHERE ,4 


MOV BANK (SP) 
MOV NOP SP) 
MOV PARTHERE. -(SP) 
MOV 4,-(SP) 
V #3,NOPAR sINDICATE PARITY ACTION 
PE 36 :MODIFY MEMORY 
TYPEIT ,MSGO36 
DS CRF 
PE MSGO31 ;PHYSICAL ADDRESS (0-17775776)?? 
TYPEIT ,MSGO31 
-DSABL CRF 
RDOCT ;READ OCTAL NUMBER ONTO STACK & $HIOCT 
MOV $HIOCT , BANK ;PUT MSB’S IN BANK 
Pop RO ;PUT LSB’S IN RO 
MOV (SP)+,RO 
CLC 
ROL RO 
ROL BANK 
CLC 


ROR RO 
IF BANK GT LASTBANK THEN GOTO 1$ ;CHECK FOR BANK TOO HIGH 
CMP BANK ,LASTBANK 


BGT 1$ 


ADD #FIRST,RO 
IF #BITO SET.IN RO THEN GOTO 1$ ;CHECK FOR ODD ADDRESS 
BIT + (alaeaamee 


BNE 

;CHECK FOR ADDRESS OVER 16K 
CMP RO, #LAST 
BHI 1$ 


IF RO HI #LAST THEN GOTO i$ 


MOV #3$ ,PARTHERE ; INCASE OF ABORTS 

SET4 #4 $ ;TRAPS TO 4 GOTO 4$ 

MOV #4$,4 

-DSABL CRF 

MAP B ;MAP SUPERVISOR SPACE (TEST AREA) TO BANK 
MOV R3,-CSP) 

MOV BANK ,R3 


CALL MAPPE 
.DSABL CRF 
MOV (SP)+,R3 


INVALIDATE 

TESTAREA ;ENTER TEST MODE 

“ee —_— ;GO TO SYSTEM TEST MODE 
MOV (RO),R1 

;GETTING HERE MEANS WE GOT LUCKY - NO TRAPS 

KERNEL ;ENTER KERNEL MODE 

BR 5$ 

TYPE MSGO32 ;PARITY ABORT 

TYPEIT ,MSGOS2 

.DSABL CRF 


SEQ 0315 
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| 40615 042274 

| 410616 

10617 042276 

10618 042302 
042302 

10619 642306 

10620 

10621 042310 
042310 


10622 042314 
042314 


10623 042322 
042322 


10624 042326 
10625 042330 


0423 
10626 042332 
042332 


042352 
34 


10635 
04 


10636 042424 


MODIFY 
000431 
062706 000004 
104401 067170 
000424 
104401 067315 
010146 
104403 
006 
000 
104401 067352 
104413 
012601 
053737 002552 
010110 
011001 
104417 
104401 067334 
010146 
104403 
006 
000 
104417 
012637 004 
012637 002304 
012637 002076 
012637 002102 
012737 034114 
022737 000005 
001002 
005037 177766 
000207 


177776 


000004 
004010 


4$: 


5$: 


EXCMD4: 
POP 


101$: 


comm a ee —=— —-- - —— = « — o—-— 
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MEMORY 


EXCMD4 ;EXIT 
#4, SP ;FIX STACK 
MSGO33 ; TIMEOUT TRAP 
»MSGO33 
CRF 
EXCMD4 ;EXIT 
MSG037 ;O0LD DATA WAS 
»MSGO37 
CRF 
Ri ;PRINT IT 
R1,-(SP) ;;SAVE R1 FOR TYPEOUT 
;;GO TYPE--OCTAL ASCII 
6 ;;TYPE 6 DIGITS 
foe ; SUPPRESS LEADING ZEROS 
MSGO039 ; INPUT NEW DATA 
»MSGO39 
;READ ON OCTAL NUMBER ONTO THE STACK 
Ri ;GET NEW NUMBER 
MOV (SP)+,R1 
A ;ENTER TEST MODE 
oe ;GO TO SYSTEM TEST MODE 
R1,(RO) ;PUT IT IN MEMORY 
CRO),R1 ;READ IT AGAIN 
sENTER KERNEL MODE 
MSGO38 ;DATA IS NOW 
»MSGO38 
CRF 
Ri ;PRINT IT 
R1,-(SP) ;;SAVE R1 FOR TYPEOUT 
;;GO TYPE--OCTAL ASCII 
6 ;;TYPE 6 DIGITS 
0 ;;SUPPRESS LEADING ZEROS 
CRF 
;ENTER KERNEL MODE 
4, PARTHERE , NOPAR , BANK 
MOV (SP)-+, 
MOV (SP)+,PARTHERE 
MOV (SP)+,NOPAR 
MOV (SP )+,BANK 
;RESET TRAPS TO 4 TO DEFAULT 
#TIMEOUT ,4 
#5,PROTYP ;IS THIS AN 11/83/84 ? 
101$ ;BRANCH IF NOT 
CPUERR ;CLEAR OUT THE CPU ERROR REGISTER BITS 
CRF ; THAT A EXPECTED TRAP COULD HAVE SET 


SEQ 0316 


- —— - 
—-_ —————— 


CVMJAAO MSV11-J MEMORY DIAG. 
FS COMMAND 4 


10639 042426 


10640 042426 
042426 


10643 042466 
042466 

10644 042472 

10645 042474 
042474 

10646 042500 
042500 
042506 

10647 

10648 042510 


10649 042514 
10650 042516 
10651 042520 
042520 
042526 
10652 042530 
042530 
10653 042534 
10654 042536 
042536 
10655 
10656 042536 
042536 
10657 042542 
10658 042544 
042544 
10659 042550 
042550 
042556 
10660 042560 
042560 
042564 
10661 042566 
042566 


10662 042572 
10663 042574 
042574 


- me ll A i ae ie 


012637 


023737 
003367 


013701 
006301 
006301 
033761 
001003 
104401 


000754 


104401 
104413 
012637 


023727 
003367 


005737 
001004 


104401 
104413 
012602 


MODIFY 


002102 
002102 


002102 


002106 


067420 


067445 


002112 


002112 


002112 


067463 
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MEMORY 


002556 


002664 


000047 


FSCMDS: SUBTST <<FS COMMAND 5 SELECT BANK & PATTERN>> 
5 EERE EEEEEERERE EERE EEERESERERE EERE REESE EEE REESE EEEEEEEEEEEEEEEE EEE EEE ERE RR REED 
; *SUBTEST S COMMAND 5 SELECT BANK & PATTERN 


§ ESSE SES SESS ESSE EES EES SESS ESSERE SESSSES SKE SEES SSS S SSS SERS RSESS ERE SESE RECEES 


PUSH BANK ,PATTERN, TESTADD,PCBUMP, TKVEC, TKVEC+2 
MOV BANK , -( SP) 
MOV PATTERN, -(SP) 
MOV TESTADD, -(SP) 
MOV PC UMP , -( 
MOV TKVEC,-(SP) 
MOV TKVEC+2,-(SP) 

MOV SP ,FSSTACK ;SAVE LAST GOOD STACK POINTER 

TYPE MSGO40 ;SELECT BANK & PATTERN TEST 

TYPEIT ,MSGO40 

-DSABL CRF 

1$: TYPE MSGO030 ;BANK( 0-177)? 

TYPEIT ,MSGO30 

-DSABL CRF 

RDOCT ;READ AN OCTAL NUMBER ONTO THE STACK 

POP BANK ;PUT IT IN BANK 


MOV (SP)+,BANK 
IGH 


IF BANK GT LASTBANK THEN GOTO 1$ ;CHECK FOR BANK TOO H 
oh oo 


BANK ,R1 
Ri 


Ri 
IF CPUBIT OFF.IN CONFIGC(R1) 
BIT CPUBIT,CONFIG(R1) 
BNE L413 


MSG041 ;BANK NOT ACCESSABLE 

TYPEIT ,MSGO41 

DSABL CRF 

GOTO i$ 

BR i$ 
END ;OF IF 
L413:issss: 
2$: TYPE 2 ;PATTERN( 0-45)? 

TYPEIT ,MSGO42 
.DSABL CRF 
RDOCT ;READ AN OCTAL NUMBER ONTO THE STACK 
POP PATTERN ;PUT IT IN PATTERN 


MOV (SP)+,PATTERN 
IF PATTERN GT #47 THEN GOTO 2$ ;CHECK FOR PATTERN TO HIGH 
ad ow 


IF PATTERN EQ #0 
TST PATTERN 
BNE L414 
TYPE MSGO043 ;PATTERN O DATA IS? 


TYPEIT ,MSGO43 


-DSABL_ CRF 
RDOCT ;READ AN OCTAL NUMBER CNTO THE STACK 
Re ;PUT IT IN R2 
MOV (SP)+,R2 


eee Ee ee ee ee — ——— ee ee - — 


H9 
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FS COMMAND 5 SEL 


ECT BANK & PATTERN SEQ 0318 
10664 042576 END ;OF IF 
042576 L4l4:iiciee 
0665 
10666 
10667 042576 MAP BANK ;MAP SUPERVISOR SPACE (TEST AREA) TO BANK 
042576 010346 MOV R3,-(SP) 
042600 013703 002102 MOV BANK ,R3 
042604 004737 035716 CALL MAPPER 
.DSABL CRF 
042610 012603 MOV (SP)+,R3 
10668 042612 104511 INVALIDATE 
10669 042614 004737 040052 CALL EXBANK ;SET NEW MARGINS 
10670 042620 IF RRFLAG IS TRUE 
042620 005737 002124 TST RRFLAG 
042624 001404 BEQ L415 
10671 042626 TYPE MSG049 ;BANK REQUIRES RELOCATION 
042626 104401 067617 TYPEIT ,MSGO49 
.DSABL CRF 
10672 042632 000137 043246 JMP CMDSC 
10673 042636 END ;OF IF RRFLAG 
042636 L415:sssaes 
10674 042636 TYPE MSG046 ;T0 ESCAPE TYPE ANY KEY! 
042636 104401 067505 ys oro 
10675 042642 013737 002152 002154 MOV CSRNO,SAVCSR ;SAVE OLD CSR NUMBER 
10676 042650 013702 002102 MOV BANK, R2 ; 
0426 072227 000002 ASH #2, R2 ;GENERATE INDEX INTO CONFIGURATION TABLE 
10678 042660 016203 002664 MOV CONFIG(R2), R3 :R3 = LOW WORD OF CONFIGURATION TABLE FOR THIS BANK 
042 072327 177770 ASH -10,R3 ;POSITION CSR CODE IN BITS 0-3 
10680 042670 042703 177760 BIC #tC17, RS ;CLEAR ALL BUT THE CSR CODE 
0681 042674 00630 ASL R3 ; ADJUST CSR NUMBER 
10682 042676 010337 002152 MOV SRNO ; 
10683 042702 012737 043246 000060 MOV #CMDSC , TKVEC 
0427 012737 000340 000062 MOV #340, TKVEC+2 
10685 042716 017700 137722 MOV a$TKB,RO ;KILL ANY OLD INTERRUPT 
10686 042722 042737 000200 177776 BIC #BIT7,PSW ;LOWER CPU PRIORITY TO 140 
ieake 042730 052777 000100 137704 BIS #BIT6,a$TKS ;ENABLE KEYBOARD INTERRUPTS 
10689 
10690 042736 SET HEADER , MUT 
042736 012737 177777 002612 MOV #-1,HEADER 
042744 012737 177777 002110 MOV #-1,MUT 
10691 042752 013701 002102 CMD5B: MOV BANK ,Ri 
10692 042756 30 ASL Ri 
10693 042760 30 ASL 
1 0427 005037 002240 CLR SPLTCSR 
10695 042766 005037 002264 CLR PASFL 
10696 042772 012737 060000 002412 MOV #FIRST, TA 
10697 043 012737 060002 002414 MOV #FIRST+2, TESTADD+2 
10698 043006 IF #BITl2 SET.IN CONFIG+2(R1) 
043 032761 010000 002666 BIT #B1T12,CONFIG-2(R1) 
043014 001413 BEQ L416 
10699 043016 005237 002240 INC SPLTCSR 
1 043022 MAP BANK 
3022 010346 MOV R3,-CSP) 
3024 013703 002102 MOV BANK ,R3 
043030 004737 035716 CALL MAPPER 





_—_— 2 —_——S——— —— — - -- ee —_—- —————— —_—— « 
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1 eee MSV11-J MEMORY DIAG. 
FS COMMAND 5 SELECT BANK & PATTERN 





| _DSABL CRF 
| 043034 012603 MOV (SP)+,R3 
10701 043036 012737 120000 002414 MOV #120000, TESTADD+2 
10702 043044 END; OF IF #BITil2 
04 L416:iisse3 
10703 043044 IF #SWO SET.IN @SWR 
043044 032777 000001 137564 BIT #SWO,@SWR 
043052 001402 BEQ L417 
10704 043054 104470 ECCDIS ;DISABLE ERROR CORRECTION 
10705 043056 ELSE 
043056 000405 BR L420 
043060 L417:ssssee 
10706 043060 PUSH CSRNO 
043060 013746 002152 MOV CSRNO, -(SP) 
10707 043064 104502 CLRCSR ;CLEAR CSRS 
10708 043066 POP CSRNO 
043066 012637 002152 MOV (SP)+,CSRNO 
10709 043072 END ;OF IF 
043072 L420: issce3 
10710 043072 012737 000002 002076 MOV #2,NOPAR sPARITY ACTION 
10711 043100 012737 000002 002326 MOV #2 ,PCBUMP ; TRAPS ADD 2 TO PC 
10712 043106 013700 002112 MOV PATTERN,RO 
10713 043112 006300 ASL RO 
10714 043114 004770 043126 CALL aF SPATCRO) 
10715 043120 005037 002076 CLR NOPAR 
10235 043124 000712 BR CMD5B ;LOOP TILL KEYBOARD INTERRUPT 
10718 043126 017510 FSPAT: MTOOOO ;<1 SEC DATA PATTERN TEST 
10719 0431 017544 MTOOO1 ;<i SEC ADDRESS TEST 
10720 043132 017640 MTO0O02 ;<1 SEC COMPLEMENT ADDRESS TEST 
10721 0431 017754 MTOOOS ; 1 SEC 3 XOR 9 WORST CASE NOISE TEST 
10722 043136 020070 MTOO004 ; 1 SEC ROTATING ZEROS TEST 
10723 043140 020140 MTOOOS ; 1 SEC ROTATING ONES TEST 
10724 043142 020222 MTOO06 ;<i SEC INITIAL DATA TEST 
10725 043144 020256 MTOOO7 ;<1 SEC ADDRESS BIT 
10726 043146 020320 TOO10 ;<1 SEC BYTE ADDRESSING TEST 
10727 043150 024220 MTO0999 ;<1 SEC NULL TEST TO KEEP TABLE ORDER 
10728 043152 024220 MT0999 ;<1 SEC NULL TEST TO KEEP TABLE ORDER 
H+ 0431 024220 MTO999 ;<1 SEC NULL TEST TO KEEP TABLE ORDER 
0730 0431 020354 MT0014 ; 1 SEC BASIC DOUBLE BIT ERROR TEST 
10731 043160 024220 MTO999 ;<1 SEC NULL TEST TO KEEP TABLE ORDER 
10732 043162 024220 MTO999 ;<1 SEC NULL TEST TO KEEP TABLE ORDER 
10733 0431 20434 MTOO17 ;<1 SEC 11'S € O'S T 
734 0431 020456 MTO0020 ; 1 SEC SYNDROMES TO CSR ON SBE TEST 
10735 043170 020536 MTOO21 ; 1 SEC MARCHING 0'S € 1'S TEST 
7 043172 021026 MTOO22 ;10 SEC REFRESH & SHIFTING DIAGONAL TEST 
10737 043174 021060 MT0023 ;10 SEC SHIFTING DIAGONAL TEST 
10738 043176 021124 MT0024 ;20 SEC FAST GALLOPING PATTERN TEST 
10739 04 024220 MTO999 ;<1 SEC NULL TEST TO KEEP TABLE ORDER 
10740 043202 1332 MT0026 ;<1 SEC RANDOM DATA TEST 
10741 043204 021610 MTO027 ; 1 SEC UNIQUE BANK TEST 
04 2200 MTOO3O ; 1 SEC FLUSH OUT DBE'S TEST 
10743 043210 022454 MT0031 ; 3 SEC SOB-A-LONG TEST 
10744 043212 4 MTOO32 ;<1 SEC WRITE RECOVERY TEST 
10745 043214 023160 MT0033 ;35 SEC BRANCH GOBBLE TEST 
10746 043216 3346 MTO0034 ; 1 SEC SOFT ERROR TEST 
10747 043220 023446 MTO0O035 ;<1 SEC WORST CASE NOISE PARITY TEST 


SEQ 0319 | 


——— 


— —_ —-- — 


—~ me mmm a maa ae ae 
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FS COMMAND 


5 SELECT BANK € PATTERN SEQ 0320 
10748 043222 023560 MTO0036 ; 1 SEC CORRECTION CODE TEST 
10749 043224 023622 MTO0O037 ;<1 SEC ECC DISABLE TEST 
0432 024220 0999 ;<1 SEC NULL TEST TO KEEP TABLE ORDER 
10751 043230 023660 MT0041 ; 1 SEC ADDRESS TO CSR ON DOUBLE BIT ERROR TEST 
043 23740 0042 ;<1 SEC EXTENDED Q-BUS ADDRESS TEST 
10753 043234 023774 MT0043 ; 1 SEC WRITE BYTE CLEARS SBE TEST 
0432 24024 MT0044 ; 5 SEC SHIFTING 1/0'S THROUGH THE CHECK BITS 
10755 043240 024104 MTOO045 ; 1 SEC SYNDROMES TO CSR ON DBE TES 
10756 043242 024134 0046 ; 1 SEC CHECK SINGLE BIT ERROR WITH ECC DISABLED TEST 
eed 043244 024164 MT0047 ;<1 SEC NO CSR UPDATE WITH SBE ON DBE TEST 
10759 043246 013706 002306 CMDSC: MOV FSSTACK , SP ;RECOVER OLD STACK POINTER 
10760 043252 042777 000100 137362 BIC #BIT6,a$TKS 
10761 043260 POP TKVEC+2, TKVEC 
0432 012637 000062 MOV (SP)+, ruven ed 
043264 012637 000060 MOV (SP)+, TKVEC 
10762 043270 117700 137350 MOVB a$TKB,RO ;GET CHARACTER TO GET RID OF FLAG 
10763 043274 POP PCBUMP , TESTADD 
043274 012637 002326 MOV (SP)+,PCBUMP 
043300 012637 002412 MOV (SP)+, TESTADD 
10764 043304 POP PATTERN, BANK 
043304 012637 002112 MOV (SP)+,PATTERN 
043310 012637 002102 MOV (SP)+,BANK 
10765 043314 MAP BANK ;REMAP OLD BANK 
043314 010346 MOV R3,-(CSP) 
043316 013703 002102 MOV BANK ,R3 
043322 004737 035716 CALL MAPPER 
-DSABL CRF 
043326 012603 MOV (SP)+,R3 
10766 043330 004737 040052 CALL EXBANK 
10767 043334 013737 002154 002152 V SAVCSR ,CSRNO ;RESTORE CSRNO. 
10768 043342 000207 RETURN 


KY 
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FS COMMAND 5 SELECT BANK & PATTERN 


10770 043344 FSCMD6: SUBTST <<FS | COMMAND 6 TYPE CONFIGURATION MAP>> 
FS SSSSESSSSSESSESSESE SSS SS SESS SSS SSS ESSE SES SESSSSESSESSSRSSASESSRES EEE ERE REESE 
;*SUBTEST FS COMMAND 6 TYPE CONFIGURATION MAP 
FSS SSSSSESESSES SESE SES ESSE ESSE SSE SESS EEE SEEKERS RSSSSE REESE REESE CREE EE ES 
10771 043344 004737 032722 CALL ONFIG | 


10776 043350 00207 
10773 


SEQ 0321 


EE 


————— we eS Ee 


ee ee re ee 


V 
S 


| 10776 043352 


10777 043352 
043 
04 
10778 043376 
10779 043402 


10780 

10781 043406 
043406 
043414 

10782 043416 

10783 043420 
043420 

10784 043422 

10785 043424 
043424 

10786 043424 
043424 

10787 

10788 043430 
043430 


10789 043434 


10797 

10798 043504 
043504 
043510 

10799 043510 

10800 043514 


043520 
043522 
043526 
10801 043530 
10802 043532 
10803 043536 


043536 
10804 043536 
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COMMAND 6 


104401 
012737 


042737 
052777 


012737 
012737 


002102 


002112 
000060 
000062 
002076 
002306 
067671 


000001 


067712 


067505 
043560 
000340 
137170 
000200 
000100 


yan 
002102 
040052 
002116 
002124 


022454 


—_—_— LL A LT ee 


‘ 


137222 


000060 
000062 


177776 
137152 


002612 
002110 
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TYPE CONFIGURATION MAP 


FSCMD7: SUBTST <<FS COMMAND 7 SOB-A-LONG TEST>> 
{ERREEEEEEEES SEES EEE SEESE EES ES SEER ESE RERSEERERESEEE EERE E REECE SEER EERE E REE EES 
;*SUBTEST FS COMMAND 7 SOB-A-LONG TEST 


FESS SSSESESSS SSE SSS SSSSES SSS SE SSESSESSESSSS SSS SESS SSE SSSSESSRSESRSSRSESESKERESE SEL ESEEEES 


CMD7B: 


MOV 
TYPE 
TYPEIT 
. DSABL 


BANK PATTERN, TKVEC, TKVEC+2, NOPAR 
MOV BANK, -(SP) 
MOV PATTERN, -(SP) 
MOV TKVEC, -¢SP) 
MOV WV TKVEC +2 CSP) 


MOV_NOPAR, - 
;SAVE LAST GOOD STACK POINTER 


SP ,FSSTACK ; 
MSGO55 ;SOB-A-LONG TEST 


»MSGO55 
CRF 


IF #SWO SET.IN @SWR 


BIT — 


BE@ L421 
ECCDIS ;DISABLE ERROR CORRECTION 
ELSE 
BR L422 
BQliisiica 
CLRCSR ;CLEAR CSRS 
ND ;OF IF _ 
eTTTT 
TYPE MSGO56 ;BELL = EACH PASS COMPLETE a 
TYPEIT ,MSGO56 
.DSABL CRF 
TYPE MSGO046 ;TO ESCAPE TYPE ANY KEY! 
TYPEIT ,MSGO46 
DSABL CRF 
MOV #CMD7C , TKVEC 
MOV #340, TKVEC+2 
MOV a$TKB,RO ;KILL ANY OLD INTERRUPT 
BIC IT7,PSW ;LOWER CPU PRIORITY TO 140 
BIS #BIT6,a$TKS ;ENABLE KEYBOARD INTERRUPTS 
SET HEADER , MUT 
MOV #-1 »MUT 
FOR BANK := #0 TO LASTBANK 
CLR BANK 
B7lsssssss 


CALL 


EXBANK 
IF ACFLAG IS TRUE AND RRFLAG IS FALSE 


TST ACFLAG 
BEQ L423 
TST RRFLAG 
BNE L423 


Pate tt! 


CALL 


END ; 


MT0031 
;OF IF ACFLAG 


L4oes:ssiscs 


END ;OF FOR BANK 


SEQ 0322 


- —_— - ee nee ee a - e —_- —_ -_ . —_—<_— 
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FS COMMAND 7 SOB-A-LONG TEST 


SEQ 0323 > 


oe eee a 
ol 
043550 003757 BLE 871 
043552 EVLsssasaas 
10805 043552 TYPE $BELL ;RING BELL 
043552 104401 002653 TYPEIT ,$BELL 
-DSABL CRF 
10806 043556 GOTO CMD7B 
sonst 043556 000752 BR CMD7B 
10808 043560 013706 002306 FSSTACK ,SP ;RECOVER OLD STACK POINTER 
10809 043564 042777 000100 137050 #BIT6,a$TKS 
10810 043572 117700 137046 a$TKB,RO ;READ CHAR TO KILL FLAG 
10811 043576 NOPAR , TKVEC+2, TKVEC ,PATTERN, BANK 
043576 012637 002076 MOV (SP)+,NOPAR 
3602 012637 000062 MOV (SP)+, TKVEC+2 
043606 012637 000060 MOV (SP)+, TKVEC 
043612 012637 002112 MOV (SP)+,PATTERN 
043616 012637 002102 MOV (SP)+,BANK 
10812 043622 MAP BANK ;MAP SUPERVISOR SPACE (TEST AREA) TO BANK 
043622 010346 MOV R3,-(SP) 
043624 013703 002102 MOV BANK ,R3 
043630 004737 035716 CALL MAPPER 
.DSABL CRF 
043634 012603 MOV (SP)+,R3 
10813 043636 004737 040052 EXBANK 
10814 043642 000207 


er <r 


LL LL ER 


- o- awe ae eee 
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SEQ 0324 _— 





SOB-A-LONG TEST 
| 40817 043644 FSCMD8: SUBTST <<FS | COMMAND 8 ERROR SUMMARY>> 
£ FS SSSSSSSSSSSSSSSSSSSSSSSESSSSSESSESSESSSSSSSSSSESSESSESSSSSSSSSSESESSSESSS SSS eseeseeeseese 
; sSUBTEST FS COMMAND 8 ERROR SUMMARY 
§ FSS SSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSESSTSSSSSESSSSSSSSESSESSESSSSESSSESH SESE See eeees 
10818 043644 RO,R2,R3, BANK 
043644 01 MOV RO,-(SP) 
043646 010246 MOV R2,-(SP) 
043650 010 MOV R3,-(SP) 
043652 013746 002102 MOV BANK, -(SP) 
10819 043656 013737 056654 002434 MOV $PASS, TEMP 
10820 04 337 002434 DEC TEMP 
10821 043670 TYPDEC TEMP 
3670 013746 002434 V TEMP, -( SP) ;;SAVE TEMP FOR TYPEOUT 
043674 TYPDS on ;;GO0 TYPE--DECIMAL ASCII WITH SIGN 
10822 043676 013737 172350 002270 MOV KIPAR4,SAV4 5331.L.C.;REV B 
10823 043704 012737 001000 172350 MOV #1000, KIPAR4 5331.L.C. ;REV B 
10824 043712 TYPE M™SG125 ‘PASSES COMPLETED 
043712 104401 071242 TYPEIT ,MSG125 
.DSABL CRF 
10825 043716 TYPDEC $ERTTL 
043716 013746 002630 MOV $ERTTL, -(SP) ;;SAVE $ERTTL FOR TYPEOUT 
043722 104405 TYPOS a ;;G0 TYPE--DECIMAL ASCII WITH SIGN 
10826 043724 TYPE | _MSG079 sERROR(S) DETECTED 
043724 104401 070265 TYPEIT .1SG079 
10827 043730 IF $ERTTL NE #0 
043730 005737 002630 TST $ERTTL 
0437 001445 BEQ L424 
10828 043736 005037 002334 CLR SUCCESS 
10829 043742 FOR BANK := #0 TO LASTBANK 
043742 005037 002102 CLR BANK 
043746 Ble sssssss 
10830 043746 013703 002102 MOV BANK,R3 
10831 043752 070327 000004 MUL #4,R3 
10832 043756 IFB CONFIG+2(R3) NE #0 
043756 105763 002666 TSTB CONFIG+2(R3) 
043762 001424 BEQ L425 
10833 043764 IF SUCCESS IS FALSE 
043764 005737 002334 TST SUCCESS 
043770 001005 BNE L426 
10834 043772 TYPE  MSGO76 ;BANK ERRORS 
043772 104401 070230 TYPEIT ,MSGO76 
.DSABL CRF 
10835 043776 SET SUCCESS 
043776 012737 177777 002334 MOV #-1,SUCCESS 
10836 044004 END ;OF IF SUCCESS 
044 L426: si3535 
10837 044004 TYPOCS _BANK,3 
044 013746 002102 MOV BANK, -(SP) + s SAVE BANK FOR TYPEOUT 
33 
044010 104403 TYPOS 3;GO TYPE--OCTAL ASCII 
044012 006 BYTE 6 ;;TYPE 6 DIGITS 
044013 000 BYTE, 3 ;:;SUPPRESS LEADING ZEROS 
10838 044014 116300 002666 MOVB CONF IG+2(R3),RO 


'FS 


—— ee ee ee 


10839 044020 
10840 


He 


10841 044030 
30 


- - ee Dr ee ee ee 


042700 
010046 
104405 


104401 
005237 
023737 
003737 


013737 


| CVMJAAO MSV11-J MEMORY DIAG. 
COMMAND 68 ERROR 


177400 


002102 
002102 


002270 
002102 


002556 


172350 


B10 


BIC #tC377,RO0 

TYPDEC 
MOV RO, -(SP) 
TYPDS 
-DSABL CRF 

TYPE 
TYPEIT ,$CRLF 
-DSABL_ CRF 

END ;OF IFB CONFIGCR3) 
END ;OF FOR BANK 


$CRLF 


END ;OF IF SERTTL 


MOV SAV4 ,KIPAR4 
POP BANK ,R3,R2,R0 


RETURN 


—_—— EE nem mmm — 
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SUMMARY _ 


;;SAVE RO FOR TYPEOQUT 
;;GO0 TYPE--DECIMAL ASCII WITH SIGN 


Lo25S:isisae 


BLE 
CTessssssse 


L424: issics 
331.L.C.3:;;REV B 


SEQ 0325 


INC BANK 
CMP  ctaaaaaa 


MOV (SP)+.BANK 
»R3 


MOV (SP)-+ 


MOV (SP)+,R2 
MOV (SP)+,RO 





——— = es ——_ «= 
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FS COMMAND & ERROR 


| 
| 
| 


10850 044072 


10851 044072 
72 
044102 
06 
10852 044116 
10853 044122 
044122 

10854 
10855 044126 
044126 
044134 
10856 044136 
10857 044140 
044140 
044142 
10858 044142 
10859 044144 
044144 
10860 044144 
044144 

10861 
10862 044150 
044150 
10863 044154 

10868 
10869 044210 
044210 


044216 
10870 
10871 Oeaase 


104401 
012737 


052777 


012737 
012737 


005237 


177777 
177777 


002102 
040052 
002116 
002124 


021026 


002102 


136502 


000060 
000062 


177776 
136432 


002612 
002110 
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SUMMARY 


et ete tne ——_—_—— =- - 


SEQ 0326 


FSCMD9: SUBTST <<FS COMMAND 9 REFRESH TEST>> 
Pritt titi ttt tt iti titi iti ti titi titi titi ti tiiiitiiiiitittititii titi titititT Tit ttittT 
; *SUBTEST FS COMMAND 9 REFRESH TEST 


5 EEE EREREEESE EEE EEESSEEEEEESSREEEEE EEE RESEERE ERE SERRE R ERE SEER E ERE R EOE TERRE ES 
BANK ,PATTERN, TKVEC, TKVEC+2,NOPAR 


CMD9B : 


PUSH 


MOV 
TYPE 
TYPEIT 
. DSABL 


SP ,FSSTACK 
MSGO73 
»MSGO73 
CRF 


IF #SWO SET.IN @SWR 


ECCOIS 
ELSE 


FOR BANK 


CLRCSR 
F 


CR 
#CMD9C , TKVEC 
4 ele 


¢ 31T7.PSW 
#uIT6.a$TKS 


HEADER , MUT 


:= #0 TO LASTBANK 


CALL EXBANK 
IF ACFLAG IS TRUE AND RRFLAG IS FALSE 


INVALIDATE 
CALL MTO0022 
END ;OF IF ACFLAG 


END ;OF FOR BANK 





MOV BANK 
MOV PATTERN Pisp) 
MOV TKVEC, -(SP) 


MOV i 
;SAVE LAST GOOD STACK POINTER 
;REFRESH TEST 


BIT #SWO,aSWR 
BEQ L427 
;DISABLE ERROR CORRECTION 


BR L430 


;1T0 ESCAPE TYPE ANY KEY! 


sKILL ANY OLD INTERRUPT 
;LOWER CPU PRIORITY TO 140 
;ENABLE KEYBOARD INTERRUPTS 


MOV w- 1 s MUT 


CLR BANK 


TST ACFLAG 
BEQ L431 
TST RRFLAG 
BNE L431 


L4o3l:sisise 
INC BANK 


———— ee ee ee 


SS ee = —<—<—< «a= 


CVMJAAO MSV11-J MEMORY DIAG. MACRO VO5S.01lb Friday 15-Feb-85 16:10 Page 354-1 
FS COMMAND 9 TEST 


REFRESH SEQ 0327 


| 
044262 023737 002102 002556 CMP BANK, LASTBANK 
| 044270 003757 BLE 873 
) 044272 E73S:isssses 
10878 044272 TYPE $BELL ;RING BELL 
044272 104401 002653 TYPEIT ,$BELL 
| -DSABL CRF 
10879 044276 GOTO CMD9B 
sonne 044276 000752 BR CMD9B 
10881 044300 013706 002306 CMD9C: MOV FSSTACK,SP ;RECOVER OLD STACK POINTER 
10882 044304 042777 000100 136330 BIC #BIT6,a$TKS 
10883 044312 117700 136326 MOVB a$TKB,RO ;READ CHAR TO KILL FLAG 
10884 044316 POP NOPAR, TKVEC+2, TKVEC, PATTERN, BANK 
044316 012637 002076 MOV (SP)+,NOPAR 
044322 012637 000062 MOV (SP)+, TKVEC-2 
0443 012637 000060 MOV (SP)+, TKVEC 
044332 012637 002112 MOV (SP)+, PATTERN 
044336 012637 002102 MOV (SP)+-,BANK 
10885 044342 MAP BANK ;MAP SUPERVISOR SPACE (TEST AREA) TO BANK 
044342 010346 MOV R3,-(CSP) 
044344 013703 002102 MOV BANK ,R3 
044350 004737 035716 CALL MAPPER 
.DSABL CRF 
044354 012603 MOV (SP)+,R3 
10886 044356 004737 040052 LL EXBANK 
000207 RETURN 


10887 044362 
10888 


10891 044364 


10892 044364 
10893 044366 
044366 


10894 044372 
10895 pore bo 


10898 044406 
10899 044410 
10900 

10901 044412 


10902 044412 
044412 


10903 eres et 
4416 


10906 044434 


10907 044434 
044434 


10908 044440 
10909 044444 


0444 
10910 oaaase 
10912 044454 


10913 044454 
044454 


10914 044460 
10915 044462 
10916 044470 
10917 044474 


10918 
10919 044476 


CVMJAAO MSV11-J MEMORY DIAG. 
FS COMMAND 9 


104401 


012737 
012737 
000207 


104401 
005037 
012737 
000207 


070311 


177760 
002357 


070456 


177777 
177777 


070506 
002006 
177777 


070634 


002544 
002544 


—— eee -_ —— See ee ee ._* ~ - -— - 


E10 
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REFRESH TEST 


002006 
002010 


002010 


002546 





SEQ 0328 


FCMD10: SUBTST <<FS COMMAND 10 SET FILL COUNT>> 
Neri T irri iit errr iii itiiitiiiiiiiiiiiitt 
; *SUBTEST S COMMAND 10 SET FILL COUNT 

{PRESSES EEEEEEEEEEEE ESSE EERE E AES EREEEAE SEERA ESE EE TECE REE RER EERE EOE EES 


MOV RO, -( SP) 
MSGO85S ;FILL COUNTCOCTAL )? 
»MSGO8S 


.DSABL CRF 
RDOCT 
POP RO 


BIC #tC17,RO 
RO, $FILLS 
RO 


MOV (SP)+,RO 


MOV (SP)+,RO 
RETURN 


FCMD11: SUBTST <<FS COMMAND 11 ENTER KAMIKAZE MODE>> 
5 ERRERESEERESEEEEERERE EE ER ER EERE RERE REE EEE EEE ESEEEEESEEEEE EEE EEEES EERE SORE EEE ES 


; *SUBTEST FS COMMAND 11 ENTER KAMIKAZE MODE 
5 REEEEE EERE SEES EEE ERE EERE E EEE EERE ERE AERA REE ERR AE ERE EERE EERE ES EEE EEE ER EEE EE 


;ENTERING KAMIKAZE MODE 
TYPEIT ,MSG101 


.DSABL CRF 
SET KAMIKAZE , SKIPKAMI 
MOV #-1,KAMIKAZE 
MOV #-1,SKIPKAMI 
RETURN 


FCMD12: SUBTST <<FS COMMAND 12 EXIT KAMIKAZE MODE>> 
ena: eataegaie guage neo a ae aaaiey 


; *SUBTEST EXIT KAMIKAZE MODE 

EEE ESSERE SE SESEEKEEEEEER EKER EKAEREKEESEREEERESEESEES 
MSG102 ;LEAVING KAMIKAZE MODE 

TYPEIT  ,MSG102 


° C 
CLR KAMIKAZE 
SET SKIPKAMI 


RETURN 


FCMD13: SUBTST <<FS COMMAND 13 TURN CACHE OFF>> 
Tritti ttt titi t iit tt titi tt titi tt tttit ttt titi titi ti titi iti tititittiitiiltitititiitil. 
FS COMMAND 13 


MOV #-1,SKIPKAMI 


; *SUBTEST TURN CACHE OFF 
pERREREREREEEEEEAE EEE ERE SEER ERE EER EE EERE EE EREREEEREEEEEEEER EERE EEE EERE EEE E EEO ES 
TYPE MSG106 ;CACHE IS OFF 
TYPEIT ,MSG106 
.DSABL_ CRF 
CACHOFF ; TURN CACHE OFF 


;SAVE OLD CACHE ON STATE 


MOV CACHKN , CACHKN+2 
N ;KEEP CACHE OFF 


CLR CACHK 
RETURN 


FCMD14: SUBTST <<FS COMMAND 14 TURN CACHE ON>> 


sRRERRERESEEEES EEE EEE ER ERE RE EERE EERERERE EERE EREREREREREEEREEE EE EEE EEE EE COTE O EES 
; *SUBTEST FS CuMMAND 14 TURN CACHE ON 


we rrr ee eee ee 


| Fern MSV11-J MEMORY DIAG. 
FS COMMAND 14 


TURN CACHE 


_—_—_—_——— ee eee ee —_—- = ee eee 
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ON SEQ 0329 


; ee = << —CREAEME ‘IB Goa CEUEEOT taten ketn eare 


10920 044476 MSG107 ;CACHE IS ON (EXCEPT DURING ACTUAL PATTERNS) 
044476 104401 070652 TYPEIT ,ft86107 

10921 044502 013737 002546 002544 MOV CACHKN+2,CACHKN — ;RESTORE OLD CACHE ON STATE 

10922 044510 104423 CACHON ; TURN CACHE ON 


10923 044512 000207 
10924 


ee Lh cL eit eee —— oe ee ee 


G10 
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FS COMMAND 14 TURN CACHE ON SEQ 0330 


10937 
10938 044514 FCMD15: SUBTST <<FS COMMAND 15 


10939 044514 
044514 
10940 044520 
10941 044524 
044524 
10942 erty 
10943 044524 
044524 


10944 044530 
10945 verter 


10947 044546 
10948 044550 
50 


10 34 
10952 044562 
044562 
044564 
10953 044564 
10954 044564 
044564 
10955 044570 
044570 
10956 044576 
10957 
10958 044600 
10959 044600 
044600 


10960 044604 
10961 


104401 
004737 


104401 
104413 
012601 


006301 
006301 
052761 
000760 
104401 


012737 
000207 


104401 
005037 
013702 
006302 
006302 


070561 
044610 


067072 


000177 


040000 


070727 


177777 


070773 
002002 


002556 


002666 


002002 


jEEEREESEEEEESEERSSEEERSEESESE EERE SEREREREEE ESSA TEES EERERERE EEE EEE CREE EERE EEE ES 
S COMMAND 15 


; «SUBTEST 
s 
Sitti ttt titi titi titi titi tt ttt ttt ttt ttt ttt tt itt tit titi Titi Titi Ttt ii ttititititit 


FCMD16: SUBTST 


TYPE 

TYPEIT 

. DSABL 

CALL CMD16A 

BEGIN CMD16LO00P 
REPEAT 


MSG105 
»MSG105 
CRF 


TYPE MSGO030 
TYPEIT ,MSGO30 
-DSABL CRF 

RDOCT 

POP Ri 


IF R1 GT #177 OR R1 LT #0 


LEAVE CMD16LO0P 

END ;OF IF Ri 

ASL Ril 

ASL Ri 

BIS #BIT14,CONFIG+2(R1) 

END ;OF REPEAT 

END CMD16LO00P 
TYPE MSG110 
TYPEIT ,MSG1i10 
.DSABL CRF 
SET SEL.ONLY 
RETURN 


<<FS COMMAND 16 


TEST ONLY SELECTED BANKS 


| 
| 
| 
| 
TEST ONLY SELECTED BANKS>> | 


;ERASE OLD SELECTIONS 
B74:issias 


;BANKCO-177)? 


;ENTER BANKS IN OCTAL - USE NUMBER OUTSIDE RANGE TO TERMINAT 


;READ AN ee NUMBER ONTO THE STACK 
MOV (SP)+,R1 
CMP R1,#177 


;PUT IT IN R 


BGT L432 
TST 


L432:ssiss: 
BR E74 


;sR1 <- R1 « 4 


E74 
;ONLY SELECTED BANKS WILL BE TESTED 


MOV #-1,SELONLY 


RESUME TESTING ALL BANKS>> 


ERE EERE EEEEEREEEKEREEEEREEEEEEEEERESEESESEKESESSESEEEEERE EEE EE RED 


RESUME TESTING ALL BANKS 


SEEKER EEEREEKEE ERE SRE KE EKER EE EEK EKEEEREEER EEE ESE EEE EEE SESE EEK ECEEEEESEE SERED 


; *SUBTEST FS COMMAND 16 

TYPE MSG1i11i 

TYPEIT ,MSG111 

.DSABL CRF 

CLR SELONLY 

;ENTRY POINT oo CMD15 
CMD16A: MOV LASTBANK ,R2 

ASL R2 

ASL Re 


;ALL BANKS WILL BE TESTED 


eee 


H10 
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FS OMMAND 16 


044640 
10969 044640 000207 


RESUME TESTING ALL BANKS 
FOR R1 := #0 TO R2 BY #4 


040000 002666 BIC #B81T14,CONFIG+2(R1) 
END ;OF FOR Ri 

000004 
RETURN 


SEQ 0331 


CLR Ri 
B76:iisie3 


ADD #4,R1 
CMP R1,R2 
BLE 876 
E76:sisssee 


— —— C—O eee ee 


~CVMJAAO MSV11-J MEMORY 
, FS COMMAND 16 


F 

i 

| 10972 044642 
| 


10973 044642 
044642 104401 


10974 044646 012737 
10975 044654 000207 


110 
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RESUME TESTING ALL BANKS 


FCMD17: SUBTST <<FS COMMAND 17 ENABLE TRACE>> 

5 EREREEEEEESEEEREEEEE EEE ESSE EERE EERE REESE EEE EERE SESE EERE EEEEEE REE E EERE EER EERE ES 
;*SUBTEST FS COMMAND 17 E TRACE 
{EEEEEEEEEREEEEEEEESESESESSERES SEERA EERE REE EEERERRER REESE SEE SESE SERRE ERE EEE 


2 
071331 TYPEIT ,MSGi27 
ABL CRF 
177777 006216 MOV #-1, TRACE 
RETURN 


SEQ 0332 


—e eee ee 4 


CVMJAAO MSV11-J MEMORY DIAG. 
FS COMMAND 17 


' 
i 
' 


10978 044656 


10979 044656 
044656 


10980 044662 
10981 044666 


ENABLE 


104401 071350 


005037 006216 
000207 


J10 
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TRACE 
FCMD18: SUBTST <<FS COMMAND 18 DISABLE TRACE>> 
5 EREEEEEEEEEEE SEER EEEEEEE EEE ESEE REESE EERE RERERERE CEES ESSE ERE EEE EERE RHEE RRR R EOE 
; *SUBTEST FS COMMAND 18 DISABLE TRACE 
{EERE EEREEEESEEEREEEEEEEE EES ERE EEE SE EERE EEE EEERES EEE REESE EERE SE EE ERE EEE R EERE 
TYPE MSG128 
TYPEIT ,MSG128 
-DSABL CRF 
CLR TRACE 
RETURN 


ee ee ee ee 


ee ee ed eee - ——— = = -_- a —- 


K10 
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AND 18 DISABLE TRACE SEQ 0334 


-——— ~~ «+ = - 


10984 044670 WHICHCSR:SUBTST <<SUBR DETERMINE CORRECT CSR>> 
5 EEEEEEEEEESEESEE SEES EEESEESEESEESERERER EERE EERE EERE RERERERERERE REE EEE ROHR REE ES 
; *SUBTEST ERMINE CORRECT CSR 
5 EREEEEEEEEEERE SEE EEEESERERESEEEEEREEEEREEESAER SESE ES EEEEE ERE E EERE RE EERE ERE R EEE 
10985 044670 013700 002224 MOV TOTCSRS ,RO ;GET CSR'S FLAG 
10986 044674 022700 100000 CMP #BIT15,R0 ;CSR 0? 
10987 044700 001003 BNE 1$ ;NO - SKIP 
10988 044702 005037 002152 CLR CSRNO ;YES - SET IT UP 
pes 4 044706 000207 RETURN 
10991 044710 1$: TYPE MSGO22 ;WHICH CSR(0-F ) 
044710 104401 066725 TYPEIT ,MSGO22 
-DSABL CRF 
10992 044714 104412 RDLIN ;GET CHARACTER 
10993 044716 POP RO ;PUT IN RO 
044716 012600 MOV (SP)+,RO 
044720 011000 MOV (RO),RO ;PUT CHAR IN RO 
10995 044722 020027 000106 CMP » #106 ;CHECK LIMIT 
044726 101370 BHI i$ ;IF BAD LOOP TILL HE TYPES IT RIGHT 
10997 044730 022700 000101 CMP #'A,RO 
10998 044734 103002 BHIS 2$ 
044736 162700 000007 SUB #7,RO 
11000 044742 162700 000060 2s: SUB #60 ,RO 
11001 044746 300 ASL RO 
11002 044750 010037 002152 MOV RO, CSRNO 
11003 044754 207 RETURN 


11469 
11470 peed 
11471 
11472 
11473 
11474 
11475 
04 
11476 
04 


04 
11477 

04 
11478 

04 


04 
11479 
11480 
5034 
11481 045034 
11482 
11483 045040 
11484 045040 
045040 
045044 
5046 
052 
11485 045052 
11488 045062 
5062 


11489 045070 


11496 ossr36 


ll 
11497 045120 
11498 045124 
045124 


010137 
162737 


005737 
001007 


053737 


016137 
104417 


005737 
001003 


010237 
000402 


010337 


000137 


005737 


010137 
005037 


053737 


CVMJAAO MSV11-J MEMORY DIAG. 
ERROR DATA (SUPERVISOR) SETUP STUFF 


002034 
000002 
002144 
002552 


177776 


177654 


002044 


002044 


050212 


002022 
034152 


002150 


002552 


002150 


177773 
177600 


002034 
002044 


002552 


L10 
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002034 


177776 


002052 


177776 


177776 





-SBTTL 
$PER25: LET ADDRESS 


ERROR DATA : irre SETUP STUFF 


-= Ri - #¢ 


IF ABORTFLAG IS FALSE 


TEST 
BIS 
DS 


. DSABL 
LET BAD 


AREA 
TESTMODE ,PSW 
:= -2(R1) 


KERNEL 
END ;OF IF ABORTFLAG 


IF 177654 EQ #0 


LET GOOD := 


ELSE 


LET GOOD := R3 


END ;O0F 

JMP 
PERRA3: SUBTST 
; *SUBTEST 


IF 
PERRAW 


Re 


MOV R1,ADDRESS 
SUB #2, ADDRESS 


TST ABORTFLAG 
BNE L434 


;ENTER TEST MODE 


;GO TO SYSTEM TEST MODE 


;ENTER KERNEL MODE 


L434:sisiei 


TST 177654 
BNE L435 


MOV R2,GO00D 


BR L436 
Lasssisscae 


MOV R3,G00D 
L436:issici 


<<DATA WAS 3 WORDS>> 
5 KEKEKEKAAEKKKESKSSEKCESAKEKKESEKEEKKAKSEKCKEKAKEKSEKKKSKKEKEKEESKEKKEEEKEKEEKERESEERER ORES EEREE 


DATA WAS 3 WORDS 


RRR R ERE EERE EERE EEA EEE EERE EEE EERE AEE EERE REESE EEERE EEE EE ERE EEEEEE EEE EEE OEE 
IF BADPC EQ #0 THEN $CALL BADSTACK 


PUSH RO 

CLR CSR 

CHKiDIS 

TEST 

BIS TESTMODE , PSW 
. DSAB 

TST C(R1) 

KE 

READCSR 

MOV CSR, RO 
CLR1CS 

ASH #-5,RO 

BIC #+C177,RO 
LET ADDRESS := R1 
CLR 

TESTAREA 

BIS TESTMODE , PSW 


TST BADPC 
BNE L437 
JSR PC ,BADSTACK 
L4O37:ssscae 
MOV RO,-(SP) 
;MAKE SURE CSR BIT HOLDER IS CLEA 
; DISABLE ECC & WRITE CHECKBITS FROM 1 SELECTED CSR 
;GO TO SYSTEM TEST MODE 
;READ LOCATION TO READ CHECKBITS INTO CSR 


;GET CSR CONTENTS 
;SAVE CSR CONTENTS IN RO 
;RETURN CSR T AL MODE 
;MOVE CHECK BITS TO BOTTOM OF WORD 
;CLEAR OFF EXTRANEOUS GARBAGE 
;SAVE VIRTUAL ADDRESS FOR PRINTOUT 
MOV R1,ADDRESS 
;FIRST TEST : WRITTEN SHOULD ALWAYS BE ZERO 


;ENTER TEST 
;GO0 TO SYSTEM TEST MODE 


SEQ 0335 


gece 


3323 
SVSre 


045200 
11510 045200 
11511 045202 
045202 
11512 045202 


_ en tan le a aa aa a a ae 


011437 
+ 


012600 


000001 135444 


IF #SWO 
ENASBE 

ELSE 
ECCINI 


END; OF 
RTI 


M10 
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CRF 
(R1),BAD ;GET BAD DATA FROM MUT - FIRST WORD 
(R4),BAD2 ;AND SECOND WORD 
;ENTER KERNEL MODE 
RO,BADS ;MOVE BAD CHECKBITS FOR PRINTOUT 
BAD3+1 ;CLEAR OFF THE OTHER UNUSED BITS 
, ;MARK BANK AS BAD IN CONFIG TABLE 
+ 
RO ;sRESTORE RO 
MOV (SP)+,RO 
SET.IN @SWR 
BIT #@SWO,aSWR 
BEQ L440 
; TRAP ON SINGLE BIT ERRORS 
BR L441 
L440: isis: 
T ; TRAP ON UNCORRECTABLE ERRORS 
IF #SwWO 


L441:isiies 


SEQ 0336 


LEE LLL LT AD, OE . 


— dee ma a ca 


CVMJAAO MSV11-J MEMORY DIAG. 
WORDS 


DATA WAS 3 
11515 045204 
04 


11516 045210 
045210 


045214 
11517 045222 
045222 
Oeeses 

11518 0452 
045230 
11519 045236 
11520 045244 
521 045246 
045246 
22 045246 


il 

115 
1152 
11524 045252 


11525 oases 


010137 


011637 
163737 


005737 
001007 


053737 


017737 
104417 


000137 


053737 
011037 
5 


012637 
012637 
012600 
000207 
000000 


002044 


002034 
000016 


002144 
002552 


134572 


050212 


002552 
002052 


002144 
045350 


000114 
000004 


A ee - —— —<—ee- 


N10 
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002034 


177776 


002052 


000004 
000114 


177776 


$PER3O: LET GOOD := Ri 
LET ADDRESS := (SP) - 16 


MOV R1,GO00D 


MOV (SP), ADDRESS 
SUB 16, ADDRESS 
IF ABORTFLAG IS FALSE 
TST ABORTFLAG 
BNE L442 


;ENTER TEST MODE 


TESTAREA 
;GO TO SYSTEM TEST MODE 


BIS TESTMODE ,PSW 
.DS CRF 
LET BAD := @ADDRESS 
MOV @ADDRESS ,BAD 
;ENTER KERNEL MODE 


KERNEL 
END ;OF IF ABORTFLAG 
L4oQ@2:isicis 


JMP PERRAW 
GETDATA:SUBTST <<GET DATA FROM ABORTED AREA IF POSSIBLE>> 
SFSSSSSESSESSSSSSSESRSESSS ESSE ASSESSES KSEE SSERSHSSEERSEKSESSSESKSEKSAKRSESSESASEKERE CERES 
; *SUBTEST GET DATA FROM ABORTED AREA IF POSSIBLE 
SFSSEESSESSSSSSESSESSS SESSA S TES AKESKERSERSEKERSEEKSRSKAKATEESEKESESKAKESSESSESSRESSRESE SESS 
PUSH RO,4,114 


MOV 4,- SP) 


MOV SP, » ia 
MOV # 
MOV $18.14 
MOV ADDRESS ,RO 
TESTAREA 
BIS TESTMODE , PSW ;GO TO SYSTEM TEST MODE 
.DSABL CRF 
MOV CRO), BAD 
KERNEL 
CLR ABORTFLAG 
1$: MOV GETDA1, SP sRESTORE KNOWN GOOD STACK POINTER 
POP 114,4,RO0 


MOV (SP)+,114 
MOV (SP)+,4 
MOV (SP)+,RO 
RET 
GETDAL: 0 


SEQ 0337 


ee = oO ol 


=e oo es — 


| 


ee ee 


hhh fe hehe ne 


SELES FERS 


SELES 


ents 
HE 


o 
oo 


eae eed eed ed od od ed SO de ed 
sw 


ee eh he pe pepe 
vVeuwri ui 

“NN 

mr 


s > <2 o -— ———— ——— <i — ca cr 


5422 012700 
26 012701 


014046 
5434 077102 
5444 700 
ot 94 012701 


014046 
077102 


80 045516 077303 


Bil 
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$PWRDN 


1$: 


2s: 


PO1: 


3$: 


-SBTTL POWER FAIL AUTO RESTART 
-SBTTL ROUTINE POWER DOWN AND UP 


" SSAVE CACHE STATUS 
TST CACHKN 


BEQ S$ 
PUSH CONTRL 

;TURN CACHE ON 
MOV eS ag PWRVEC SET > FAST UP 
MOV # WRVEC+2 PRIO:7 
PUSH RO,R1i, Re R3,R4, Rs. "CSRNO 


;SAVE USER PAR'S & PDR7 
#17 htt RO 

MOV #17., 

PUSH -CRO 65 

SOB R1,1$ 

;SAVE SUPERVISOR PAR'S 

TST NOSUPER 

BNE PD1 

MOV #172300,R0 

MOV #16 **e Ri 

PUSH -CRO) 


SOB R1,2$ 
IF RLFLAG IS TRUE THEN $CALL WOOPS 


;COPY KERNEL MAP TO USER & SUPERVISOR 
MOV #KITPDRO,RO 


MOV #UIPDRO,R1 

MOV #SIPDRO,R2 
#32. ,R3 

MOV CRO), CR1)+ 

MOV CRO)+,(R2)+ 
R3,3$ 


§FSSSSSESSSSESSSSES SSS SS SESSA RSSAEAE EASES HEARSE EEE ESE H EES TERE SE SEH ROREEEES 
INE . 


MOV CONTRL ,-(SP) 


MOV -(RO),-(SP) 


MOV -CRO),-(CSP) 


TST 1 
BEQ L443 
JSR PC, WOOPS 


L443:iissee 


——_—— ee 


Cii 
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ROUTINE POWER DOWN AND UP SEQ 0339 


11582 
| 11583 045520 
| 045520 


;SAVE USER &€ SUPERVISOR STACK POINTERS 


052737 140000 177776 , eatin ;GO TO USER MODE 
11584 045526 010600 MOV USP ,RO 
11585 045530 104417 KERNEL ;ENTER KERNEL MODE 
11 0455 PUSH RO 
0455 010046 MOV RO,-(SP) 
11587 045534 005737 002456 TST NOSUPER 
11588 045540 001006 BNE 7$ 
11589 045542 SUPERVISOR sENTER SUPERVISOR MODE 
045542 052737 040000 177776 oF ong '24. Pu :;GO TO SUPERVISOR MODE 
11590 045550 010600 MOV SSP ,RO 
11591 045552 104417 KERNEL ;ENTER KERNEL MODE 
11592 045554 PUSH RO 
0455 010046 MOV RO, -(SP) 
11593 ;SAVE ECC REGISTERS 
11594 045556 013701 002224 7$: MOV TOTCSRS,R1 ;GET CSR'S 
11595 045562 BEGIN LCSRSAVE 
045562 B77 ssssss3 
11596 045562 FOR CSRNO := #0 TO #36 BY #2 
045562 005037 002152 CLR CSRNO 
045566 B1l00:siss33 
11597 045566 006301 ASL Ri 
11598 045570 ON.ERROR 
045570 103003 BCC L444 
11599 045572 104426 READCSR 
11600 045574 PUSH CSR 
045574 013746 002150 MOV CSR,-(SP) 
11601 045600 END ;OF ON.ERROR aaa 
L 358883 
11602 045600 IF R1 EQ #0 THEN LEAVE LCSRSAVE 
045600 005701 TST Ri 
045602 001407 BEQ E77 
11603 045604 END ;OF FOR CSRNO 
045604 062737 000002 002152 ADD #2,CSRNO 
045612 023727 002152 000036 CMP CSRNO, #36 
045620 003762 BLE 8100 
04 E100: sssssss 
11604 045622 END LCSRSAVE 
0456 ETT ssesc3 
;SAVE MMRO,1,2,.3 
11606 045622 PUSH MMRO,MMR1, MMR 
04 013746 177572 MOV MMRO, -(SP) 
04 013746 177574 MOV MMR1,-(SP) 
0456 013746 177576 MOV MMR2,-CSP) 
11607 045636 005737 002456 TST NOSUPER 
11608 045642 001002 BNE 8$ 
11609 045644 PUSH MMR3 
04 013746 172516 MOV MMR3,-(SP) 
| 610 ;SAVE KERNEL PAR'S 
11611 045650 012700 172400 8$: MOV #172400,R0 
11612 045654 012701 000020 MOV #16.,R1 
11613 045660 4$: PUSH -(RO) 
045660 014046 MOV -(RO),-(SP) 
11614 045662 077102 SOB R1,4$ 





eee 


ee ee —e 


CVMJAAO MSV11-J MEMORY DIAG. 
ROUTINE POWER DOWN AND UP 


11616 045664 

11617 045672 

11618 045674 
045674 
045700 

11619 

11620 045704 
045704 

11621 

11622 045710 

11623 


11626 045724 


022737 
001004 


013746 
013746 
017746 
010637 
012737 
000000 
000776 


Dil 
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000005 004010 


170202 
170200 


134726 
046304 


9$: 


045726 000024 


$DOWN: 


;SAVE Q-BUS MAP REGISTERS 
CMP #5,PROTYP 

BNE 

PUSH 


9$ 
MAPHO , MAPLO 


;SAVE POSSIBLE SOFTWARE SWITCH REGISTER 
PUSH @SWR 


;SAVE STACK hie 
MOV SP , $SAVR6 


= SET UP REAL VECTOR 
ALT 


H 
BR 


#$PWRUP , PWRVEC 


$DOWN 


; ;SAVE SP 
;;SET UP VECTOR 
;;HANG UP 


:IS THIS AN 11/83 ? 
;BRANCH IF NOT 


MOV MAPHO, -( SP) 


MOV @SWR , - (SP) 


SEQ 0340 


CVMJAAO MSV11-J 


ROUTINE POWER DOWN AND UP 


11629 


11630 
11631 045726 
11635 045726 


1 
11637 045734 
740 


654 

11655 046030 
11656 046034 
11657 046040 
046040 

11658 046040 
046040 
046046 

11659 046046 
11660 046050 
046050 

11661 046052 
046052 

11662 046056 
11663 046060 
060 


5: 
g 
e 
© 


012637 
012637 
012637 
012637 


013701 
042701 


012737 
006201 
103003 


012637 
104425 


005701 
001407 


162737 
023727 
002362 


012700 
012701 


002456 


172516 
177576 
177574 
177572 


002224 
177400 


000036 


002150 


172300 
177600 


— eee 
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000024 


002152 


002152 
000000 





5 FOSS SSSSS SESE EES. 


1$: 


10$: 


6$: 


11$: 


ROUTINE 


MOV #$ILLUP,PWRVEC ;;SET FOR FAST DOWN 
;RESTORE STACK POINTER 


MOV $SAVRE, ;;GET SP 

CLR $SAVR6 ;;WAIT LOOP FOR THE TTY 
INC $SAVR6 ;;WAIT FOR THE INC 
BNE i$ ;;0F A WORD 
;sRESTORE POSSIBLE SOFTWARE SWITCH REGISTER 
POP aSWR 

MOV #172340,R0 

MOV #KIPDRO,R2 

MOV #16.,R1 

POP CRO)+ 

MOV #77406, (R2)+ 

SOB R1,6 

;RESTORE MMR3,2,1,0 

TST NOSUPER 

BNE 11$ 

POP MMR3 

POP MMR2 ,MMR1,MMRO 


;sRESTORE ECC REGISTERS 

MOV TOTCSRS,R1 ;GET CSR'S 
BIC #177400 ,R1 

BEGIN LCSRRESTORE 


FOR CSRNO := #36 DOWNTO #0 BY #2 


ASR 
ON. ERROR 
POP 


LOADCSR 
END ;OF ON.ERROR 


IF Ri EQ #0 THEN LEAVE LCSRRESTORE 


CSR 


END ;OF FOR CSRNO 


END LCSRRESTORE 


ore KERNEL MAP TO USER & SUPERVISOR 
#KIPDRO,RO 
MOV #UIPDRO,R1 


SESSSSSSSSSSSSSESESSE SESS SKS SESSA S ECR ESE SEE CEES 


MOV (SP)+,@SWR 


MOV (SP)+,(RO)+ 


MOV (SP)+,MMR3 
MOV (SP)+,MMR2 


MOV (SP)+,MMR1 
MOV (SP)+,MMRO 


BCC L445 
MOV (SP)+,CSR 


L4a4e:ssssae 


TST Ri 
BEQ E101 


SUB #2,CSRNO 
CMP CSRNO, #0 
BGE 8102 


El02ssssssss 
ElO01sssssss 


SEQ 0341 


—_—- _——« 
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' 
{ 
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11670 046112 


11674 046126 


012702 172200 
0127 000040 
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3$: 


43222 
: 


ee ee ee ee el 


SEQ 0342 


611 
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‘ROUTINE POWER SEQ 0343 
| 6 ;RESTORE SUPERVISOR & USER STACK POINTERS 
11677 046130 005737 002456 TST NOSUPER 
11678 046134 001006 BNE 13$ 
11679 046136 Pop RO 
046136 012600 MOV (SP)+,RO 
11680 046140 SUPERVISOR sENTER SUPERVISOR MODE 
046140 052737 040000 177776 BIS #B1T14,PSu ;GO TO SUPERVISOR MODE 
11681 046146 010006 roV RO, SSP 
11682 046150 104417 KERNEL sENTER KERNEL MODE 
11605 aeisS 012600 _ ™ MOV (SP) 
V +, RO 
11684 046154 USER 
046154 052737 140000 177776 BIS @B1T15!B1T14,PSu ;GO TO USER MODE 
11685 046162 010006 MOV RO, USP 
11686 046164 104417 KERNEL sENTER KERNEL MODE 
1168 ;RESTORE SUPERVISOR PAR'S 
11688 046166 012700 172240 MOV #172240 ,R0 
11689 046172 012701 000020 MOV $16. RI 
04617 7$: POP CRO). 
046176 012620 MOV (SP)+,(RO)+ 
11691 046200 077102 SOB R1,7$ 
11692 ;RESTORE USER PAR’S & PDR7 
11693 046202 012700 177636 MOV #177636, RO 
11694 046206 012701 000021 MOV #17., 
11695 046212 8s: PoP CRO)s 
046212 012620 MOV (SP)+,(RO)+ 
11696 046214 077102 SOB R1,8$ 
11697 ;RESTORE POSSIBLE SOFTWARE DISPLAY REGISTER 
11698 046216 013777 002012 134414 MOV $PATMAR, SDISPLAY 
11699 046224 013737 002012 000174 MOV $PATMAR . DISPREG 
11700 046282 sieilides: damm PoP CSRNO,R5,R4,R3,R2,R1,RO 
MOV (SP)+,CSRNO 
046236 012605 MOV (SP)+.R5 
046240 012604 MOV (SP)+.R4 
046242 012603 MOV (SP)+.R3 
6244 012602 MOV (SP)+.R2 
046246 012601 MOV (SP)+.R1 
046250 012600 MOV (SP)+.RO 
1 046252 012737 045352 000024 MOV @$PWRON,PWRVEC ;;SET UP THE POWER DOWN VECTOR 
11702 046260 TYPE  MSGO51 ;REPORT THE POWER FAILURE 
046260 104401 067652 TYPEIT ,MSGO51 
_DSABL CRF 
11703 SRESTORE CACHE STATUS 
1704 64 005737 002544 TST CACHKN 
11705 046270 001402 BEQ 9$ 
11706 046272 PoP CONTRL 
046272 012637 177746 MOV (SP)+,CONTRL 
11707 046276 000002 9$: RTI 
11708 046300 000000 $ILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
11709 046302 000776 BR $ILLUP :; BEFORE THE POWER DOWN WAS COMPLETE 
11710 046304 000000 $SAVRE: a ;;PUT THE SP HERE 


ee me 


| CVMJAAO MSV11-J MEMORY _ 


ROUTINE POWER DOWN AND 


11723 046306 


11724 046306 
046306 
11725 046312 
11726 046316 
046316 
046320 
046324 
046330 
11727 046332 
046332 


11728 046340 
+1765 046346 


11746 046464 
464 
11747 046470 


013746 
005037 
010346 
013703 
004737 
012603 


052737 


013737 
013737 


126472 


012737 
012737 


012637 
000207 


002102 
002102 


002102 
035716 


040000 


060024 
060026 


041024 


046472 
000340 


041024 


172340 
126654 
000010 


002456 
172516 
177576 


177574 
177572 


002102 


em ne . — _— — = — = 
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177776 


046704 
046706 


060024 
060026 


WOOPS : 


SUBTST <<POWER FAIL WHILE RELOCATED>> 


§ FS SSESESSSSESSESSSES SES SESS SSESSESSS SSS SS SSS SESS KEKE SEEKERS EERE ESE SRESE 


;*SUBTEST 


POWER FAIL WHILE RELOCATED 


{EERE EEEEEEEEEESERERESEES ESSERE SEES EERE ETERS STEER EEE EE EE EEE ESET EERE SESE REE EEE 
PUSH BANK 


1$: 


2$: 


CLR BANK 
MAP BANK ;MAP SUPERVISOR SPACE (TEST AREA) TO BANK 
MOV R3,- SP ) 
MOV BANK ,R3 
CALL MAPPER 
-DSABL CRF 
MOV (SP)+,R3 
SUPERVISOR ;ENTER SUPERVISOR MODE 
BIS #B1IT14,PSW ;GO TO SUPERVISOR MODE 
-DSABL CRF 
MOV FIRST+PWRVEC,WOOPSAV 
MOV FIRST+PWRVEC+2,WOOPSAV+2 
BMOV FIRST UP , WOOPSAV+4,WOOPEND-WOOPUP/2+12. 


os 
JSR R5,BLOCKS 
WOOPEND-WOOPUP/2+12. 
WOOPSAV +4 
FIRST +WOOPUP 
.DSABL 


CRF 
#WOOPUP , FIRST+PWRVEC 
#340 ,FIRST+PWRVEC+2 
WOOPUP , FIRST +WOOPUP , WOOPEND -WOOPUP/2 
JSR RS,BLOCKS 
WOOPEND - WOOPUP/ 


FIRST +WOOPUP 

WOOPUP 

DSABL CRF 
MOV #KIPARO PO 
MOV #FIRST+WOOPEND,R1 
MOV #8. ,.R2 
MOV (RO)+,(R1)+ 
SOB R2,1$ 
TST NOSUPER 
BNE 
MOV MMR3,(R1)+ 
MOV MMR2,(R1)> 
MOV MMR1,(R1)+ 
MOV MMRO, (R1)+ 
KERNEL sENTER KERNEL MODE 

BANK 
MOV (SP)+,BANK 

RETURN 


SEQ 0344 


aw a ————— — mm —_—_——_ — ~ ~_-——— = 


tii 
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11750 046472 WOOPUP: SUBTST <<POWER UP FROM BANK O TO RELOCATION>> 
§ FESS SESESSESSSE SSS ESSESSES SS SSS SESS SESESESESCERSSESESE KEKEKREKRSESECRERER ERE ER RRR ER EES 
;*SUBTEST POWER UP FROM BANK O TO RELOCATION 
§ FEES SSSESSESESESSESSESSSSS ESSE ESSE SESSA SSE ETERS SEEKERS KESESERESTRERRECEEERE RE RRR ERED 
11751 046472 012700 54 MOV ,RO 
11752 046476 012701 172340 MOV #KIPARO,R1 
11753 046502 012703 172300 MOV #KIPDRO,R3 
11754 046 012702 000010 MOV #8. ,R2 
11755 046512 012021 1$: MOV C(RO)+,(R1)-+ 
11756 046514 012723 077406 MOV #77406 ,(R3)+ 
11757 046520 0772 SOB R2,1$ 
11758 046522 005737 002456 TST NOSUPER 
11759 046526 00100 BNE 3$ 
11760 0465 012037 172516 MOV CRO)+,MMR3 
11761 046534 012037 177576 3$: MOV (RO)+,MMR2 
11762 046 012037 177574 MOV CRO)+,MMR1 
11763 046 012037 177572 MOV (RO)+,MMRO 
11764 0465 0137 304 MOV $SAVR6, SP 
11765 046554 PUSH BANK 
0465 013746 002102 MOV BANK, -(SP) 
11766 046560 005037 002102 CLR BANK 
11767 046564 MAP BANK ;MAP SUPERVISOR SPACE Crest seen) TO BANK 
046564 010346 3,-(SP) 
046 013703 002102 MOV BANK ,R3 
046572 004737 035716 CALL MAPPER 
-DSABL CRF 
046576 012603 MOV (SP)+,R3 
11768 046600 SUPERVISOR sENTER SUPERVISOR MODE 
046600 052737 040000 177776 , | ada ;GO TO SUPERVISOR MODE 
11769 046606 013737 046704 060024 MOV WOOPSAV ,FIRST+PWRVEC 
11770 046614 013737 046706 060026 MOV WOOPSAV+2, FIRST +PWRVEC+2 
11771 ;SIMULATE THE FOLLOWING BLOCK MOV BUT WITH NO STACK ACCESSES 
11772 ;BMOV WOOPSA ee WOOPEND-WOOPUP/2+12. 
11773 046622 012700 046710 MOV #WOOPSAV+4 
11774 046626 012701 000105 MOV #WOOPEND - NGOPUP/2012. RI 
11775 046632 012702 126472 MOV #F IRST+WOGPUP , R2 
11776 046636 012022 2$: MOV (RO)+,CR2)+ 
itis 046640 077102 SOB 1,2$ 
11779 046642 104417 KERNEL sENTER KERNEL MODE 
11780 046644 BANK 
046644 012637 002102 MOV (SP)+,BANK 
11781 046650 000137 045726 JMP $PWRUP 
11782 046654 000014 WOOPEND: .REPT ie. 
11785 046704 000107 WOOPSAV: .REPT #WOOPEND-WOOPUP/2+12.+2 


SEQ 0345 


—— ee ee 
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IO SUBROUTINES 
13799 -SBTTL I0 SUBROUTINES 
11398 -SBTTL ROUTINE TYPE 
11794 § FESS SSSSSSSSESSSESESESKSS ESSEC ESE SES ESE SSS SESS SESS KRSEREKRSESSEKES ERE E CEES EEE 
11795 ;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
11796 : * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
11797 ; #NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
11798 ; *NOTE2 $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
+1a00 ;*NOTES3 $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
a" 

11801 ;*CALL: 
11802 #1) USING A TRAP INSTRUCTION 
11803 TYPE MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
11804 OR 
11805 ;* TYPE 
11806 ;* MESADR 
11808 " 
11809 047122 105737 002360 $TYPE TSTB $TPFLG ;;1S THERE A TERMINAL? 
11810 047126 100407 BMI 6$ ;BR IF es 
11811 047130 010046 1$ MOV RO, -(SP) sSAVE R 
11812 047132 017600 000002 MOV a2(SP),RO ;GET ADDRESS OF ASCIZ STRING 
11813 0471 112046 4$ MOVB es ~(SP) : :PUSH CHARACTER TO BE TYPED ONTO STACK 
11814 047140 001005 BNE 7$ ;BR IF IT ISN'T THE TERMINATOR 
11815 047142 005726 TST (SP )+ : +P TERMINATOR POP IT OFF THE STACK 
11816 047144 012600 5$: MOV (SP)+,RO ;RESTORE RO 
11817 047146 062716 000002 6$: ADD #2,(SP) 1 ADJUST RETURN PC 
11818 047152 RTI 
11819 047154 122716 000011 7$ CMPB #HT , (SP) ANE IF NOT <HT> 
11820 047160 100 BNE 11$ 
11821 047162 112716 000040 MOVB eter. ;REPLACE TAB WITH SPACE 
11822 047166 122716 000200 11$: CMPB #CRLF , CSP) ;;BRANCH IF NOT <CRLF> 
11823 047172 10 BNE 8$ 
11824 047174 005726 TST (SP )+ ;;POP <CR><LF> EQUIV 
11825 047176 TYPE ;;TYPE A CR AND LF 

047176 104401 TYPEIT 

.DSABL CRF 

11826 0472 002660 $CRLF 
11827 047202 105037 047434 CLRB $CHARCNT 7 CLEAR Fegney h COUNT 
11828 047206 000753 BR 4$ T NEXT CHARACTER 
11829 047210 004737 047250 8$ CALL $TYPEC 760 TYPE THIS CHARACTER 
11830 047214 123726 002652 9$ CMPB $FILLC,(SP)+ ;;1S IT TIME FOR Aen CHARS. ? 
11831 047220 001346 BNE 4$ ieTF NO GO GET NEXT 
11832 047222 013746 002356 MOV $NULL , -( SP) ;;GET # OF FILLER — “NEEDED 
11833 sAND THE NULL CHA 
11834 0472 105366 000001 10$ DECB iCSP) DOES A NULL NEED TO BE ig 2 
11835 047232 002770 BLT 9$ ;;BR IF NO--GO POP THE NULL OFF OF STACK 
11836 047234 00473 047250 CALL $TYPEC ;;GO TYPE A NULL 
11837 047240 105337 047434 DECB $CHARCNT ;;D0 NOT COUNT AS A COUNT 
11838 047244 000770 BR 10$ ; ;LOOP 
11839 047246 XOCHAR: .WORD O 
11840 047250 $TYPEC: PUSH Ri 

0472 010146 MOV R1,-(SP) 
11841 047252 116601 000004 MOVB 4(SP),R1 
11842 047256 005737 002544 TST CACHKN 
11843 047262 001402 BEQ 2$ 


SEQ 0346 


_———e ee oe oe 


~ + — 
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ROUTINE TYPE SEQ 0347 


| — 057564 013746 177746 _ — MOV C 
| V CONTRL, - 
| 11845 047270 2$: PUSH RO valle 
047270 010046 3 MOV RO, -(SP) 
11846 047272 104424 CACHOFF ; TURN CACHE OFF 
11871 047274 105777 133346 3$: TSTB a$TPS ;;WAIT UNTIL PRINTER IS READY 
11872 047300 100375 BPL 3$ 
11873 047302 005037 047246 CLR XOCHAR 
11874 047306 105777 133330 TSTB asTKS ;;CHECK FOR XOFF 
11875 047312 100032 BPL NC ;;SKIP IF NO CHARACTER 
11876 047314 117737 133324 047246 MOVB a$TKB,XOCHAR ;;SAVE THE CHARACTER 
11877 047322 042737 177600 047246 BIC #tC177,XOCHAR ;;STRIP OFF ASCII 
11878 047330 023727 047246 000023 CMP XOCHAR , #023 ;;WAS IT A CONTROL S? 
11879 047336 001020 BNE NC ; ;BRANCH IF NOT 
11880 047340 105777 133276 CONTS3: TSTB asTKS ;;WAIT FOR CHARACTER 
11881 047344 100375 BPL CONTS3 
11882 047346 117737 133272 047246 MOVB a$TKB, XOCHAR ;;GET CHARACTER 
11883 047354 042737 177600 047246 BIC #tC177,XOCHAR ;;STRIP OFF ASCII 
11884 047362 IF XOCHAR EQ #21 ;; IF IT IS A tQ 
047362 023727 047246 000021 CMP XOCHAR, #21 
047370 001002 BNE L446 
11885 047372 000402 BR NC 
11886 047374 ELSE 
047374 000401 BR L447 
047376 L446:isisiie 
11887 047376 000760 BR CONTS3 
11888 pot y's END ;OF IF XOCHAR 
seeaeee 
11889 047400 110177 133244 NC: MOVB R1,a$TPB ;;LOAD CHAR TO BE TYPED INTO BATA REG. 
11893 047404 122766 000015 000002 CMPB #CR,2CSP) ;;1S CHARACTER A CARRIAGE RETURN? 
11894 047412 001003 BNE ; ;BRANCH IF NO 
11895 047414 105037 047434 CLRB $CHARCNT ;;YES--CLEAR CHARACTER COUNT 
11896 047420 000406 BR $TYPEX ;;EXIT 
11897 047422 122766 000012 000002 1%: CMPB #LF ,2CSP) ;;1S CHARACTER A LINE FEED? 
11898 047430 001402 BEQ $TYPEX : BRANCH IF YES 
11899 047432 105227 INCB (PC)+ ;COUNT THE CHARACTER 
11900 047434 000000 $CHARCNT: .WORD O :* CHARACTER COUNT STORAGE 
11901 047436 $TYPEX: POP RO 
047436 012600 MOV (SP)+,RO 
11902 047440 005737 002544 TST CACHKN ;1S THERE A CACHE? 
11903 047444 001402 BEQ 2$ ;BRANCH IF NOT 
11904 047446 POP CONTRL ;POP CACHE STATUS 
047446 012637 177746 MOV (SP)+,CONTRL 
11905 047452 2$: POP Ri 
047452 012601 MOV (SP)+,R1 
11906 047454 000207 RETURN 
11907 047456 SUPLIMIT: ;!2!!!!!!ttt't7HIS IS THE LIMIT ON SUPERVISOR MAPPED TO MUT SPACE 


—_ ee - 


—— ee * 
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Lili 


CVMJAAO MSV11- Je MEMORY DIAG. MACRO VOS.01b Friday 15-Feb-85 16:10 Page 405 


_ ERROR DATA SET SEQ 0348 

1eae2 -SBTTL ERROR DATA SETUP 

iSeee ; USE THIS IF THIS CONDITION DISCRIBES THE ERROR 
12589 ; PERROI TRAP 

12590 ; BAD DATA IN RO UNLESS ABORTED 

12591 3 THEN BAD DATA IS POINTED TO BY -C(R4) 
12592 ; GOOD DATA IN RS 

12593 ; 

2594 ; PERRO? TRAP 

12595 ; BAD DATA IN R1 UNLESS ABORTED 

12596 ; THEN BAD DATA IS POINTED TO BY -(R4) 
12597 ; GOOD DATA IN R2 

12598 ; 

12599 ; PERROS TRAP 

12600 ; BAD DATA IS POINTED TO BY -(R1) 

12601 ; GOOD DATA IN R4 

12602 ; 

12603 ; PERROG TRAP 

12604 ; BAD DATA IN R4 UNLESS ABORTED 
12605 ; THEN BAD DATA IS POINTED TO BY -2(RO) 
12606 ; GOOD DATA IN R2 
12607 5 
12608 ; PERROS JSR PC 
12609 ; BAD wit at POINTED TO BY -CRO) 
12610 ; GOOD DATA IN R2 
HE: ; RETURN AFTER SETTING UP GOOD,BAD, ADDRESS 

; 

12613 ; PERROG JSR PC 
12614 ; BAD DATA IS POINTED TO BY -(RO) 
12615 ; GOOD DATA IS ZERO 
iser5 ; RETURN AFTER SETTING UP GOOD,BAD,ADDRESS 
12618 ; PERRO7 TRAP 
12619 ; BAD DATA IN R2 UNLESS ABORTED 
12620 ; THEN BAD DATA IS POINTED TO BY (R1) 
12621 ; GOOD DATA IN DATBUF 
12622 ; 
12623 ; PERRIO TRAP 
12624 ; BAD DATA IN R2 UNLESS ABORTED 
12625 : THEN BAD DATA IS POINTED TO BY 2(R1) 
12626 ; GOOD DATA IN DATBUF +2 
12627 ; 
12628 ; PERRI1 TRAP 
12629 ; BYTE TEST 
12630 ; BAD DATA IN RIGHT BYTE OF RO UNLESS ABORTED 
12631 3 THEN BAD DATA IS POINTED TO BY (R11) 
12632 ; GOOD DATA IS A ZERO BYTE 
12633 ; 
12634 ; PERR12 TRAP 
12635 ; BYTE TEST 
12636 ; BAD DATA IN RIGHT BYTE OF RO UNLESS ABORTED 
12637 ; THEN BAD DATA IS POINTED TO BY (R11) 
pe ; GOOD DATA IS A BYTE OF ONES 
12640 ; PERRIS TRAP 

12641 ; BAD DATA IN RO UNLESS ABORTED 


——— 


— 
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PERR14 


PERRiS5 


PERR16 


PERR17 


PERR2O 


PERR21 


PERR22 


PERR2S 


PERR24 


PERR25 


PERR26 


THEN BAD DATA IS POINTED TO BY (Ri) 
GOOD DATA IS ZERO 


TRAP | 

BAD DATA _IN RO UNLESS ABORTED 
THEN BAD DATA IS POINTED TO BY (R1) 

GOOD DATA IS ONES 


TRAP 
BAD DATA IN RO UNLESS ABORTED 

THEN BAD DATA IS POINTED TO BY (R1) 
GOOD DATA IN TSTDAT 


TRAP 
BAD DATA IN RO UNLESS ABORTED 

THEN BAD DATA IS POINTED T0 BY (R1) 
GOOD DATA IN TSTDAT+2 


TRAP 
BAD DATA IN RO UNLESS ABORTED 

THEN BAD DATA IS POINTED TO BY (R1) 
GOOD DATA IN R2 


TRAP 
BAD DATA_IN RO UNLESS ABORTED 

THEN BAD DATA IS POINTED TO BY (R1) 
GOOD DATA IN R3 


TRA 

7 BIT BYTE TEST 

BAD DATA _IN RIGHT BYTE OF RO UNLESS ABORTED 
THEN BAD DATA IS POINTED 10 BY (R1) 

GOOD DATA IS A 7 BIT BYTE ON ONES 


TRAP 
BAD DATA_IN R2 UNLESS ABORTED 

THEN BAD DATA IS POINTED TO BY (R1) 
GOOD DATA IN RO 


TRAP 
BAD DATA_IN RO UNLESS ABORTED 

THEN BAD DATA IS POINTED TO BY (R1) 
GOOD DATA IN R4 


TRAP 

BAD DATA _IN RO UNLESS ABORTED 
THEN BAD DATA IS POINTED TO BY (R2) 

GOOD DATA IN R3 


BAD. DATA POINTED TO BY -(R1) 
GOOD DA “- - R2 UNLESS LOC V177654 IS SET 
N GOOD DATA IS IN R3 


TRAP 
BAD DATA IS DOUBLE WORD POINTED TO BY R1 AND IN LOW 7 BITS OF RO 
GOOD DATA IS 000000, , 100000, , 100 


SEQ 0349 


——eneee «eee ee 
Ce ee eeiEennniialliicnstiaEeEnenetienan 


_CVMJAAO MSV11-J MEMORY DIAG. 
ERROR DATA SETUP 


NM 
~~ 


PERR27 


PERR3O 


PERR31 


PERR32 


PERR33 


PERR34 


PERR3S 


N11 iene : 


SEQ 0350 | 
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| 
BAD DATA IS DOUBLE WORD POINTED 70 BY Ri AND IN LOW 7 BITS OF RO | 
GOOD DATA IS 000000, .000000, .077 | 


BAD. DATA IS wy TO BY -16(SP) ! 
GOOD DATA IS IN 


TRAP | 
SPECIAL ECC FAILURE HANDLER | 
TRAP 

SPECIAL ECC FAILURE HANDLER 

TRAP 

SPECIAL ECC FAILURE HANDLER 

TRAP 

SPECIAL ECC FAILURE HANDLER 


TRAP 
SPECIAL BRANCH GOBBLE FAILURE HANDLER 


CALLING SEQUENCE FOR TRAP TYPES 
BEQ 2$ 


PERRXX 
NEXT 


;NO - ERROR,BRANCH FOR CARD 
STRAP TO ERROR ROUTINE 


INSTRUCTION ;CONTINUE TESTING 


a —_—— — 


¢ 
E 


VMJAAQ MSV 
RROR DATA 


12729 047456 
1270 462 
12731 047470 


12745 047556 
12746 

12747 047562 
12748 047566 
12749 047574 
12750 047600 
12751 047604 
127 

12753 047610 
12754 


12758 047634 
759 


l2 
12760 047636 
1o7es 047642 


127 

12767 

12768 047666 
047666 
047672 

12769 ee eeee 

12770 047704 
047704 

12771 047712 

12772 

12773 047716 
047716 

12774 047722 

12775 047726 
047726 

12776 047732 

12777 

12778 047736 


el cz 


010437 
> 


010237 
5 


010137 
062737 
010237 
013737 
000137 


010137 
010037 


005037 
000137 


EE aia DIAG. 


000002 
034152 


002044 


002034 
002052 
002242 
050212 
002034 
000002 
002052 
002244 
050212 


002034 


002052 _ 


002044 
050264 


Ble 
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002034 


002034 
002052 


002034 


002044 


002034 


002044 





$PERO2: 


$PERO3: 


$PERO4 : 


PERROS: 
PERAOS: 


PERROGE: 


$PERO7: 


$PER10: 


$PERi1: 


$PER1L2: 


MOV R4, ADDRESS 
SUB #2, ADDRESS 
MOV »BAD 
MOV »GO0D 
JMP PERRAW 


SUB #2, ADDRESS 
MOV 1,BAD 

MOV 2.GO00D 
JMP 

MOV R1, ADDRESS 
SUB #2, ADDRESS 
MOV R4 ,GOOD 
MOV -2(R1),BAD 
JMP PERRAW 

MOV RO, ADDRESS 
SUB #2, ADDRESS 
MOV 4,BAD 

MOV R2,GO0D 
JMP PERRAW 

MOV R2,G000 
MOV -(RO),BAD 
MOV RO, ADDRESS 
ADD #2,RO0 ;RESTORE RO 
CALL BADSTACK 
RETURN 

CLR GOOD 

BR PERAOS 

MOV R1,ADDRESS 
MOV R 


MOV DATBUF , GOOD 
JMP PERRAW 
LET ADDRESS := R1 + #2 


LET BAD := R2 

LET GOOD := DATBUF +2 
JMP PERRAW 

LET ADDRESS := R1 
LET BAD := RO 

LET GOOD := #0 

JMP PERRAB 

LET ADDRESS :- Ri 


—_—- 


MOV R1,ADDRESS 
ADD #2,ADDRESS 


MOV R2,BAD 
MOV DATBUF +2,G00D 


MOV R1,ADDRESS 
MOV RO,BAD 
CLR GOOD 


SEQ 5) 


—-— ee 


| 
| 


CVMJAAO MSV11-J MEMORY DIAG. 


ERROR DATA SETUP 

010137 
010037 
ores 


047736 
12779 oer as 
047742 
12780 oth, 
12761 047754 


002034 
002052 


000377 
050264 
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002044 


LET BAD := RO 


LET GOOD : 
JMP 


:= #377 
PERRAB 


SEQ 0352 
MOV R1, ADDRESS 
MOV RO,BAD 
MOV #377,G00D 
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= +—— _- _——_—— ew -_-- -—- -——— —.« + 


ERROR DATA SETUP 


12784 047760 $PER13: LET ADDRESS := Ri 
047760 010137 002034 
12785 047764 LET BAD := RO 
047764 010037 002052 
12786 047770 LET GOOD := #0 
047770 005037 002044 
1270? 047774 000137 050212 JMP PERRAW 
12789 050000 $PER14: LET ADDRESS := Ri 
050000 010137 002034 
12790 050004 LET BAD := RO 
010037 002052 
12791 050010 LET GOOD := ONES 
050010 013737 002614 002044 
12738 050016 000137 050212 JMP PERRAW 
12794 050022 $PER15: LET ADDRESS := Rl 
050022 010137 002034 
12795 050026 LET BAD := RO 
050026 010037 002052 
12796 050032 LET GOOD := TSTDAT 
050032 013737 002246 002044 
13 050040 000137 050212 JMP PERRAW 
12799 050044 $PER16: LET ADDRESS := Ri 
050044 010137 002034 
12800 050050 LET BAD := RO 
00 010037 002052 
12801 050054 LET GOOD := TSTDAT+2 
54 013737 002250 002044 
1200 050062 000453 BR PERRAW 
12804 050064 $PER17: LET ADDRESS := R1 
050064 010137 002034 
12805 050070 LET BAD := RO 
50070 010037 002052 
12806 050074 LET GOOD := R2 
050074 010237 002044 
1200" 050100 000444 BR PERRAW 
12809 050102 $PER20: LET ADDRESS := R1 
050102 010137 002034 
12810 050106 LET BAD := RO 
010037 002052 
12811 050112 LET GOOD := R3 
050112 010337 002044 
12834 050116 000435 BR PERRAW 
12814 050120 $PER21: LET ADDRESS := Ri 
050120 010137 002034 
12815 050124 LET BAD := RO 
050124 010037 002052 
12816 050130 LET GOOD := #177 
050130 012737 000177 002044 
eat. 050136 000477 BR PERRA7 
12819 050140 $PER22: LET ADDRESS := Rl 





MOV 
MOV 
CLR 


MOV 
MOV 
MOV 


MOV 
MOV 
MOV 


MOV 
MOV 
MOV 


MOV 
MOV 
MOV 


MOV 
MOV 
MOV 


MOV 
MOV 
MOV 


R1, ADDRESS 
RO, BAD 
GOOD 


R1, ADDRESS 
RO,BAD 
ONES , GOOD 


R1,ADORESS 
RO,BAD 
TSTDAT ,GOOD 


R1,ADDRESS 
RO, BAD 
TSTDAT+2,G00D 


R1,ADDRESS 
RO,BAD 


R1,ADDRESS 
RO,BAD 
R3,GO0D 


R1,ADDRESS 
RO,BAD 
#177,G00D 


SEQ 0353 


NN eee ee 


CVMJAAO MSV11-J MEMORY DIAG. 
ERROR DATA SETUP 


050140 
12620 Santee 


12621 050150 
050150 
1g8e¢ 050154 
12824 050156 
050156 
12625 050162 
050162 
12826 050166 
12827 050172 
128628 
12829 050174 
050174 
12830 050200 
050200 
12831 050204 
050204 
12832 050210 


010137 
010237 
010037 
000416 
010137 
010037 
010437 
000407 


010237 
010037 


010337 
000400 


002034 


$PER23: 


$PER24: 


LET BAD := R2 
LET GOOD := RO 
BR PERRAW 
LET ADDRESS := Ri 
LET BAD := RO 

LET GOOD := R4 

BR PERRAW 
LET ADDRESS := R2 
LET BAD := RO 

LET GOOD := R3 

BR PERRAW 


Ele 
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ee _-_- ———— —_-—<— «= — ee ee ree ee . 


SEQ 0354 
MOV R1,ADDRESS 
MOV R2,BAD 
MOV RO,GOOD 


MOV R1, ADDRESS 
MOV RO,BAD 
MOV R4,G00D 


MOV R2,ADDRESS 
MOV RO,BAD 
MOV R3,GO0D 


— <3 — —_-— 


a - * ——_——— i ma 


CVMJAAO MSV11-J MEMORY DIAG. 


12835 050212 
12836 otaste 


30 

12837 050230 
050230 
050234 
050236 
050242 

12838 050242 
12839 oranee 


60 
12842 050260 
12843 oenaes 


05026 
12844 050262 
12845 
12846 050264 


12847 050264 
12848 050270 
050270 


12850 050314 
12851 050320 
050320 
12852 050326 
12853 050330 
050330 
050332 
12854 050332 
12855 050334 
050334 
12856 050334 


‘ERROR DATA SETUP 
12834 050212 


050446 
002144 
045252 


002022 
034152 
050422 
002144 


050446 
002144 
045252 


002022 
034152 
050422 
002144 


“Fi2 
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PCRRAW: SUBTST <<DATA WAS A WORD>> 

{EERE EEEEEREEEEEEEEEEEEE EERE EERE REESE EEE ERE EERE EEE EERE EERE EERE EERE RE CERO RE ES 
; *SUBTEST DATA WAS A WORD 
{EEESEEEEEESEEEEEEEEEEESEEE SESE SE RERERERERE EERE REESE EEE EEEREEEE EERE ERE EERE EERE ES 


CALL PERBNK 
IF ABORTFLAG IS TRUE THEN $CALL GETDATA 
TST ABORTFLAG 
BEQ@ L450 
JSR PC,GETDATA 
L4S50:isssa: 
TST BADPC 


BNE L451 
JSR PC,BADSTACK 


IF BADPC EQ #0 THEN $CALL BADSTACK 


CALL PERXOR 
IF ABORTFLAG IS FALSE 
TST ABORTFLAG 
BNE L452 
ERROR +11 
ELSE 
BR L453 


ERROR +12 
END ;OF IF ABORTFLAG 
RTI 
PERRAB: SUBTST <<DATA WAS A BYTE>> 
5 EERE AREER EERE EERE EERE REESE EEE ERE EEE EE EEE SEER EEE SESE EEE EEEEEEEE EEE E EEE EEE ES 
; *SUBTEST DATA WAS A SYTE 
EERE EERE EERE SEER EERE EERE REESE EERE EEE EERE E SEER EERE SEES EE EEEEEEEEEEE EEE E EERE 


CALL PERBNK 
IF ABORTFLAG IS TRUE THEN $CALL GETDATA 
ist _— 


BEQ L4 
JSR PC,GETDATA 


IF BADPC EQ #0 THEN $CALL BADSTACK 
TST BADPC 


BNE L455 
JSR PC,BADSTACK 
CALL PERXOR 
IF ABORTFLAG IS FALSE 
TST ABORTFLAG 
BNE L456 
ERROR +14 
ELSE 


BR L457 
L456: sis533 


ERROR +15 
END ;OF IF ABORTFLAG 
RTI 


SEQ 0355 


| 


CVMJAAO MSV1 
DATA WAS AB 


12859 050336 


12860 050336 
050336 
050342 
050344 
050350 

12861 050350 

12862 050354 

12863 050360 

12864 050362 

12865 

12866 050364 
050364 

12867 050372 
050372 

12868 050400 

12869 

12870 050404 

12871 050410 
050410 

12872 050416 

12873 

12874 050422 

12875 050422 

0422 

12876 050424 


12879 050442 
0442 
12880 050444 


 —_el -——— a, am i: 


012737 


012737 
000137 


005037 


012737 
000137 


074037 
012600 
000207 


1-J MEMORY DIAG. 
YTE 


002022 
034152 


050422 
050446 


100000 


000100 
045040 


002046 


000077 
045040 


002044 
002052 
002060 


—_——— ee em TT te 


Gie 
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002046 
002050 


002050 


002060 


PERRA7: SUBTST <<DATA WAS A 7 BIT BYTE>> 
§EEEEEEEEEEEEEEEER EEE ER EES EEE EEEERESEEE SERA EEREE ESHER EEAEREEEE EERE EERE ERE EEO E 
;*SUBTEST DATA WAS A 7 BIT BYTE 
5 EEEEEEEREEEEERE EEE EREREEREEEEE EERE ERE E EES ARERR EEE ESE EEEEEEEEEEE EE ERE EERE RHR 
IF BADPC EQ #0 THEN $CALL BADSTACK 
an BADPC 


L460 
JSR PC,BADSTACK 
L460: isisa3 


CALL PERXOR 
CALL PERBNK 
ERROR +22 
RTI 


$PER26: LET GOOD2 := #100000 
LET GOODS := #100 
JMP PERRAS 


CLR GOO0D2 
LET GOODS := #077 
JMP PERRAS 
PERXOR: SUBTST <<DETERMINE XOR OF GOOD & BAD>> 


¢ REESE ESSERE SEES SESE SKE EEE ERE EESEE EEE EERE EKERESRERESEESEEEEREEESES 


;*SUBTEST DETERMINE XOR OF GOOD & BAD 
SEER EREER ERE REESE EERE EEE E EERE EERE EEE EERE EEE REESE EERE REESE EEE EEEEEEE REESE EEE ES 
PUSH RO 


MOV RO,-(SP) 


MOV #100000 ,GO00D2 
MOV #100,G00D3 


$PER27: 
MOV #077,GO0D3 


MOV GOOD , RO 
MOV BAD ,BADXOR 
XOR RO,BADXOR 
POP RO 
MOV (SP)+,RO 
RETURN 


SEQ 0356 


nee ee ee 


CVMJAAO MSV11-J MEMORY DIAG. 
DE OR OF GOOD & BAD 


TERMINE X 


| 12883 050446 


12884 
12885 050446 
050446 


12895 050512 
050512 
12896 050520 
050520 
050522 
12897 050524 
12898 
12899 050526 
12900 050532 
050532 
050540 
12901 050542 
12902 050550 
050550 
050552 
12903 050552 
12904 050560 
050560 
12905 050560 
12906 050564 
050564 
12907 050572 
12908 
12909 050574 
050574 
050602 
12910 050604 
12911 Sanene 
12912 050606 
050606 
050612 
050614 
050620 
12913 050620 
12914 050624 
050624 
050632 
12915 050634 
12916 050636 


105361 
126137 
101403 


012737 
012601 
012600 
000207 
010037 
023737 
001004 
013737 
000403 
013737 


004737 
012737 
000207 
023727 


001001 
104023 


023727 
001001 
104037 


002102 
000001 
002666 
002666 
002666 


177777 


002052 
002034 
002246 


002250 


050422 


177777 


002300 


002022 
034152 
050526 
002300 


_- rm mm = - ec 


Hie 
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002664 


002554 


002406 


002412 
002044 


002044 


002612 


000041 


000011 





PERBNK: SUBTST<<LOG ERROR ON BAD BANK>> 


3 eg ee gaat iinet aici 


; *SUBTEST 


LOG ERROR ON BAD 


SEQ 0357 


{EEEEEEEREEEEREEEEEERESEEEE SESE EER ERE EERE EERE AREER ER EEEESEEESESEE ESSE SEER EERE EES 
; WHILE i LET'S MARK THE BAD BANK IN THE CONFIGURATION TABLE 


12$: 


11$: 


PERECC: 


$PER31: 


PUSH RO, 
MOV RO, -(SP) 
MOV R1,-(CSP) 
MOV BANK ,R1 
ASL Ri 
ASL Ri 
BIS #BITO,CONFIGCR1) 
INCB CONFIG+2(R1) ;BUMP BANK COUNTER 
BNE 12$ ;NO OVERFLOW - SKIP 
DECB CONF IG+2(R1) ;SET BACK TO 255. 
CMPB CONFIG. 2CR1D, ERRMAX ;I1S IT PAST MAX? 
BLOS 11$ ;NO - SKIP 
SET TOOMANY ; YES 
MOV #-1,TOOMANY 
POP R1i,RO 
MOV (SP)+,R1 
MOV (SP)+,RO 
RETURN 
MOV RO,BAD 
IF ADDRESS EQ TESTADD 


MOV TSTDAT,GOOD 
ELSE 


MOV TSTDAT+2,GO0D 
END ;OF IF (R1) 


CALL PERXOR 
SET HEADER 


RETURN 
IF REALPAT EQ #41 


ERROR +23 
ND 


IF BADPC EQ #0 THEN $CALL BADSTACK 


CALL PERECC 
IF REALPAT EQ #11 


ERROR +37 
END ;OF IF REALPAT 


CMP ADDRESS, TESTADD 
BNE L461 


CMP REALPAT, #41 
BNE L463 


TST BADPC 
BNE L464 
JSR PC,BADSTACK 


CMP —* #11 
BNE L465 


aE eae 


GO eee me 


-CVMJAAO MSV11-u MEMORY DIAG. 
‘COG ERROR ON BAD BANK 


050636 
12917 050636 
050636 


12918 050646 
12919 050650 


12920 050650 
050650 
050656 

12921 050660 

12922 Senres 

12923 050662 

12924 050670 


023727 


023727 
001001 
104044 


012737 
000002 


002300 


002300 


177777 


tie 
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IF REALPAT EQ #15 


000015 
ERROR +43 
END ;OF IF REALPAT 
IF REALPAT EQ #16 
000016 
ERROR +44 
END ;OF IF REALPAT 
SET HEADER 
002612 


RTI 


OO EE LT A AT me _—-— oo = _— -~ -_-_=— 


L465:isaac3 
CMP REALPAT, #15 
BNE L466 


L466: isic33 


CMP REALPAT, #16 
BNE L467 


L467:isiae; 


SEQ 0358 


——_ —— 


12927 050672 
050672 
050676 
050700 
050704 

12928 050704 

12929 050710 

12930 050714 

12931 050720 
050720 

12932 050726 

12933 050730 
050730 

12934 050736 

12935 

12936 050740 
050740 


S2 
12937 050752 
12938 050756 
12939 050762 
12940 050766 


12943 051006 
12944 051010 
051010 
12945 051016 
12946 
12947 051020 
051020 
051032 
12948 051032 
051032 
051040 
12949 051042 
12950 051044 
051044 
051046 
12951 051046 
12952 051050 
051050 
12953 051050 
12954 


12955 
12956 051052 


12962 051104 


010137 
010037 
010237 


012737 
104040 


012737 
000002 


010137 
010037 
105037 
012737 
004737 
012737 
104041 
012737 
000002 


005737 
001002 
004737 


032737 


CVMJAAO MSV11-J MEMORY DIAG. 
LOG ERROR ON BAD BANK 


177777 


177777 


050422 
177777 


177777 


002022 


034152 


100020 


J1le 
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002612 


002612 


002044 
002612 


002612 


002150 


002052 
002044 





$PER3S2: IF BADPC EQ #0 THEN $CALL BADSTACK 


$PER33: 


MOV R1,ADDRESS 
MOV RO,BAD 
MOV R2,GO00D 
SET HEADER 
ERROR +40 

SET HEADER 

RTI 


IF BADPC EQ #0 THEN $CALL BADSTACK 


MOV R1,ADDRESS 
MOV RO, BAD 
CLRB BAD+1 

MOV #377,GO00D 
CALL PERXOR 

SET HEADER 
ERROR 41 

SET HEADER 

RTI 


$PER34:IF BADPC EQ #0 THEN $CALL BADSTACK 


$PERSS: 


IF #BITiS!BIT4 OFF.IN CSR 


ERROR +16 
ELSE 


ERROR +1 
END ;OF IF #BITiS!BIT4 


ee 


SEQ 0359 


TST BADPC 
BNE L470 
JSR PC, BADSTACK 


L470:sssiai 


MOV 


L47lsisssis 


MOV 


BIT 
BNE 


;NO SBE OR DBE 


@-1 » HEADER 


#-i » HEADER 


BADPC 


NE L471 
PC ,BADSTACK 


#- 1 ° HEADER 


#- 1 o HEADER 


BADPC 


NE L472 
es 


#BITIS!BIT4,CSR 
L473 


BR L474 


L474: 

RTI 
;DURING BRANCH GOBBLE THE CONDITION CODES WERE WRONG 
CALL PERBNK 
CALL BADSTACK 
MOV BADPSW, BAD 

V #12,G00D 
ERROR +47 
ADD #4, SP ;sFIX STACK FROM TRAP 
RETURN ;ABORTING TEST 


473:; 
;EXPECTED SBE so” DBE MUST HAVE GOTTEN SET 


OO Or 


— om —— ae ee 


CVMJAAO MSV11-J MEMORY DIAG. 
LOG ERROR ON BAD BANK 


12963 
12964 051106 
12965 051112 
12966 051116 
051116 
12967 051124 
12968 051126 
051126 
12969 051134 
12970 
12971 051136 
12972 051140 
12973 


12974 051142 
12975 051144 


010037 002044 
010137 002052 


012737 177777 
104023 


012737 177777 
000002 


104053 
000002 


104054 
000002 


Kie 
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002612 


002612 


$PER36: 


$PER37: 


$PER4O: 


MOV 
MOV 
SET 


ERROR 
SET 


RTI 


ERROR 
RTI 


ERROR 
RTI 


RO,GOOD 

R1,BAD 

HEADER 

+23 

HEADER 

+53 ;ILC;;REV B 
;ILC; ;REV B 

+54 ;ILC; ;REV B 


;ILC;;REV B 


MOV #-1, HEADER 


MOV 6-1 »HEADER 


SEQ 0360 


-———— — a 


* —_————— 


CVMJAAO MSV11-J MEMORY DIAG. 
ROUTINE SCOPE HANDLER 


12986 
12987 051146 
12988 051152 


051152 
12989 051154 
12990 051160 
12991 Oetiee 


1254 

13015 051254 
051254 
051260 

13016 051262 
13017 051264 
051264 

13018 051264 
051264 
051272 


13030 051336 


005237 
002004 
005037 
105237 


001404 
005037 
000137 


005737 
001401 
000002 


032777 
001051 


000425 
013746 


056656 
056656 
056660 


006216 
055152 
052314 


177766 
000001 


002420 
000400 
002420 
040604 


002440 


040000 


000005 
177766 


Lie 
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052312 
052312 


131374 


131344 


000004 


004010 


;#THIS ROUTINE CONTROLS THE LOOP 


;*AND LOAD THE DISPLAY DATA INTO THE DISPLAY — 


-SBTTL ROUTINE SCOPE HANDLER 


ESSE SSSSESSESSSSSSESSSSSSSSSSS SSS SSS SSSSSSSSES ASSESSES SSSSSSSRSESSSSASESSES SSCS SEES SEE SEES 


ING OF SUBTESTS. IT WILL INCREMENT 


5 ¢THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE 


;#SW14=1 
; #SW9=1 LOOP ON ERROR 
CALL 


;* 


;* 
$SCOPE : 


NOTRCE: 


SKJ: 


1$: 


$XTSTR 


1$: 


LOOP ON TEST 


;GET CONTENTS OF ERROR REGISTER 


;TELL APi WE ARE ALIVE 


BGE L475 


aTs:sssaae 


;;TEST FOR CHANGE IN SOFT. SWR 


; TRACE 


;IS THERE A CPU ERROR REGISTER? 
BRANCH IF NOT 


SCOPE ; ; SCOPE=IOT 
INC $DE 
IF RESULT IS LT 

CLR $DEVCT 

INCB $UNIT 
END ;OF IF RESULT 
CKSWR 
TST TRACE 
BEQ NOTRCE 
CALL CONTT 
TST CPERRF 
BEQ SKJ 
MOV 94177766, CPSAVE 
BIT #BITO,CPSAVE 
BEQ SKJ 


ERROR 177 ;REPORT 
IF STOPOK IS TRUE AND #SW8 SET.IN aSWR 


CLR 


STOPOK 


JMP EXIT 
END ;OF IF STOPOK 
IF NOSCOPE IS TRUE 


RTI 
END ;OF IF NOSCOPE 
IF #SW14 SET.IN @SWR THEN GOTO $OVER 


MOV 


ERRVEC, -(SP) 


#4,SP 

#5 ,PROTYP 
6$ 

CPUERR 





; BRANCH 


;R-C 
7 f 

H 
;I1S THE POWER FAIL MONITOR BIT SET? ;R-C 
IF NOT ;R-C 
IF SO ;R-C 
;R-C 


TST NOSCOPE 
BEQ L477 


L477: ssiacs 
BIT #SW14,aSWR 
BNE $OVER 


evens ae OF CODE FOR THE XOR TESTERO O00 
: BR 2$ ;3IF R 


UNNING ON THE “. TESTER CHANGE 
; THIS INSTRUCTION TO A_ “NOP” (NOP=240) 
SA VE THE CONTENTS OF THE ERROR VECTOR 


;;SET FOR TIMEOUT 
OUT ON XOR? 


: RESTORE THE _ VECTOR 
O TO THE NEXT TEST 

SFX STACK FROM TRAP 

;1S THIS AN 11/83 ? 

;BRANCH IF NOT 

;RESET CPU ERROR REGISTER 


——— ore 


SEQ 0361 


me - 


ell ET, TS TE A —— o_O SE I — = - 


Mie 
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13031 051342 012637 000004 6$: MOV wl ERRVEC : RESTORE THE ERROR VECTOR 
13032 051346 000407 BR ;LOOP ON THE PRESENT TEST 
13033 051350 2$:;#@68END OF CODE FOR THE OR’ TESTERGeeoo 
13034 051350 105737 002014 3$: TSTB SERFLG ;;HAS AN ERROR OCCURRED? 
13035 051354 001412 BEQ $SVLAD ;;B8R IF NO 
13036 051356 032777 001000 131252 BIT #SW9 , ISWR ;;LO0P ON ERROR? 
13037 051364 001404 BEQ S$ ;;BR IF NO 
13038 051366 013737 002624 002622 43: MOV $LPERR,$LPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
13039 051374 000410 BR $OVER 
13040 051376 105037 002014 S$: CLRB $ERFLG ;;ZERO THE ERROR FLAG 
13041 051402 011637 0602622 $SVLAD: MOV (SP), $LPADR ;;SAVE SCOPE LOOP ADDRESS 
13042 051406 011637 002624 MOV (SP), $LPERR ;;SAVE ERROR LOOP ADDRESS 
13043 051412 005037 002362 CLR $ESCAPE ;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
13044 051416 004737 051430 $OVER: CALL GETDIS 
13045 051422 013716 002622 MOV $LPADR, (SP) ;;FUDGE RETURN ADDRESS 
13046 051426 000002 RTI ;;FIXES PS 


——— —<—— - 


VMJAAO MSV11-J MEMORY DIAG. 
OUTINE HANDL 


SCOPE 
13048 051430 
13049 051430 
13050 051436 
13051 051444 

ont 44e 
13052 051446 
13053 051452 
13054 051454 
13055 051462 
HE 944 1462 
13061 051476 


3 
SEBS. 
3 


: 


ER 


113737 
113737 


013777 
013737 


012600 
000207 


002102 
002300 
002126 
100000 


002012 
002012 


Nie 
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002013 
002012 


002012 


131150 
000174 


SEQ 0365 


GETDIS: SUBTST <<SUBR DISPLAY>> 
FSS SSSSSSSSSESSSSESSSSSSSSSSSSSSESSSSSSSSSSESSESSSSSESESSSRSESSESASARSSSS SSeS SESE SEES EES 
; *SUBTEST SUBR SPLAY 
§FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSESESESSKESSSSESSERESS SSS SSSA ee Seesese 
MOVB BANK , $BANK 
MOVB REALPAT , $PATMAR 
PUSH RO 
MOV RO, -(SP) 
TST RLFLAG ;ARE WE RELOCATED? 
BEQ 1$ ;NO - SKIP 
1 BIS #BIT15, $PATMAR ;YES - SET MSB 
MOV $PATMAR , ADISPLAY 
— _— ;SOFTWARE DISPLAY REGISTER 
MOV (SP)+,RO 
RETURN 


A TTT 


—_— —— — —— <j —_—aaacamae c 


ROOHIRE Chaba etn’ 6 


a 


Sena 


~ 
3 
MN 
~ 


Seeeeeeen 
oo-~ 
°o 
uw 
= 
2 


13093 051564 

051564 
13094 051570 
13095 051574 

051574 
13096 051576 
13097 051604 


16 
13098 051604 
1604 


622 

Ree 051630 
13105 051636 
06 051644 


be 
~- 


105237 
001775 


004 

013737 
032777 
001404 


104401 


104401 
005237 


100003 
012737 
011637 


117737 
122737 
3 


056666 


000000 
052310 
002430 


002014 
051430 


002012 
002000 


002653 


066060 
002630 


077777 


002020 
000002 
002024 
000002 
130164 
000177 
052310 
052314 


177766 
000001 


B15 
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056652 
131060 


002630 


002020 


002030 
002015 


002015 


052312 
052312 





-SBTTL ROUTINE 


§ FSS SSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSSSSESSSSSSESSESSSSEKSSESSSSSSSSESSSE SSeS SEE SESE 


;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
NUMBER AND THE ADDRESS OF THE ERROR CALL 


ERROR ITEM 
;#AND GO TO SERRTYP ON 


;*#SW15=1 HALT 

;*#SW13=1 INHIBIT ERROR TYPEOUTS 

;#SW10=1 BELL ON ERROR 

yy LOOP ON ERROR 

* 

é ERROR WN ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 

LSB 

$ERROR: TSTB $ENV ;ARE WE RUNNING IN APT MODE ? 
BEQ NOAPT | YES - DO UFD ABORT 
JSR PC , ABORT ;GOTO UFD ABORT 

NOAPT: CLRB IBSAVE sR-C 


IF NOERROR IS FALSE 
TST NOERROR 
BNE L500 


BACK: CKSWR ;;TEST FOR CHANGE IN SOFT-SWR at 
1$: INCB $ERFLG #3SET THE ERROR FLAG 
BEQ i$ ;;D0N'T LET THE FLAG GO TO ZERO 
CALL GETDIS ;SETUP DISPLAY STUFF 
MOV $PATMAR,$TESTN ;FOR APT 
BIT  #SW10,aSWR : sBELL ON ERROR? 
BEQ 2% sNO - SKIP 
TY $BELL ; RING BELL 
TYPEIT ,$BELL 
.0S CRF 
TYPE MSGO14 sCONTROL Z 
TYPEIT ,MSGO14 
-DSABL CRF 
2$: -I $ERTTL ;;COUNT THE NUMBER OF ERRORS 


NC 
IF RESULT IS MI 


MOV #77777, $ERTTL 
END ;OF IF RESULT 


END ;OF IF NOERROR 


MOV (SP), ERRPC 
SUB #2,ERRPC 


BPL L501 


LSOl:isssss 


LSOO:s33333 
;;GET ADDRESS OF ERROR INSTRUCT TION 


MOV SP ,ERRSP 

MOV 2(SP),ERRPSW 

MOVB @ERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 

CMPB #177,$ITEMB ;IS THIS THE POWER FAIL CALL? sR-C 

BEQ 1001$ ;BRANCH IF SO 3R-C 

TSTB IBSAVE ;2ND ERROR CALL? 3R-C 

BNE 1000$ :BRANCH IF SO_ 3R-C 

TST CPERRF ;I1S THERE A CPU ERROR REGISTER? 3R-C 

BEQ 1001$ ;BRANCH IF NOT sR-C 

MOV 177766,CPSAVE  ;SAVE CONTENTS sR-C 
;POWER MONITOR BIT SET? sR-C 


BIT #BITO,CPSAVE 


* ———— -——_ <a 
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ROUTINE ERROR HANDLER SEQ 0365 


me ee 


13113 051676 001414 BEQ 1001$ ;BRANCH IF NOT ;R-C 
13114 051700 042737 1 177766 BIC #BITO,177766 ;CLEAR THE BIT ;R-C 
13115 0517 112737 002015 052310 MOVB #$ITEMB, IBSAVE ;MAKE IBSAVE NON-ZERO FOR DUAL CALL :R-C 
13116 051714 112737 000177 002015 MOVB #177, $ITEMB ;SET $ITEMB TO POWER FAIL POINTER 3R-C 
13117 051722 000402 BR 1001$ ;R-C 
13118 051724 105037 052310 1000$: CLRB IBSAVE 3R-C 
13119 051730 1001$: 3R-C 
13120 ye ge 5 005737 002430 IF NOERROR IS FALSE ret 
NOERROR 
0517 001043 BNE L502 
13121 051736 IF BADPC NE #0 
0517 005737 002022 TST BADPC 
0517 001416 BEQ L503 
13122 051744 013737 002022 002020 MOV BADPC ,ERRPC 
13123 051752 162737 002020 SUB #2,ERRPC 
13124 051760 013737 002026 002024 MOV BADSP,ERRSP 
13125 051766 013737 002032 002030 MOV BADPSW,ERRPSW 
13126 051774 5037 002022 CLR BADPC 
13127 052000 END ;IF 
052 L503:ssses3 
13128 052000 013737 002020 056650 MOV ERRPC, $F ATAL ;FOR APT 
13129 052 004737 050446 CALL PERBNK ;;LO0G ERROR ON BANK 
13130 052012 IF #SW13 SET.IN @SWR 
052012 032777 020000 130616 BIT #SW13,@SWR 
052020 001401 04 
13131 052022 000420 BR 3$ 
13132 052024 END ;OF IF #Swi3 
052024 L5O04:sssiee 
13133 052024 IF #SW5S SET.IN @SWR AND TOOMANY IS TRUE 
052024 032777 000040 130604 BIT #SW5,aSWR 
052032 001404 BEQ L505 
052034 005737 002406 TST TOOMANY 
052040 001401 BEQ L505 
13134 052042 GOTO 3$ 
052042 000410 BR 3$ 
13135 052044 END ;OF IF #SW5 
052044 L505:ssssse 
13136 052044 END ;OF IF NOERROR 
052044 L502: sss333 
13137 052044 004737 052316 CALL $ERRTYP ;;GO TO USER ERROR ROUTINE 
13138 052050 IF MONFLG IS TRUE ;;SHOULD WE RETURN TO XXDP MONITOR??? 
052050 005737 002276 TST MONFLG 
052054 001403 BEQ L506 
13139 052056 013706 002274 MOV SAVMON,SP ;;GET MONITOR ADDRESS 
13140 052062 000207 RTS PC ;:;GO0 TO MONITOR 
13141 052064 ND $3 
052064 L506:sssee3 


oe SS me -_— - = _- ——< = 


D135 
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ROUTINE ERROR HANDLER SEQ 0366 


13143 052064 3$: IF NOERROR IS FALSE 
052064 005737 002430 TST NOERROR 
052070 001072 BNE L507 

13144 052072 005777 130540 TST aSWR ; HALT ON ERROR 

13145 052076 100002 BPL 7$ ;;SKIP IF CONTINUE 
052100 000000 $HALT: HALT se ON ERROR! 

13147 052102 104410 CKSWR ;TEST FOR CHANGE IN SOFT-SWR 

13148 052104 7$: IF NOSCOPE IS FALSE AND: #SW9 SET.IN @SWR 
052104 005737 002440 TST NOSCOPE 
052110 001006 BNE L510 
052112 032777 001000 130516 BIT #SW9,aSWR 
052120 001402 BEQ L510 

13149 052122 013716 002624 MOV $LPERR, (SP) ;;FUDGE RETURN FOR LOOPING 

13150 oesiee END ;OF IF NOSCOPE _ 

13151 052126 005737 002362 TST $ESCAPE : CHECK FOR AN ESCAPE ADDRESS 

13152 052132 001402 BEQ 9$ IF NONE 

13153 052134 013716 002362 MOV $ESCAPE , (SP) : FUDGE RETURN ADDRESS FOR ESCAPE 

13154 052140 9$: IF DETFLAG IS FALSE 
052140 005737 002220 TST DETFLAG 
052144 001043 BNE L511 

13155 052146 022737 000005 004010 CMP #5,PROTYP :IS THIS AN 11/83 ? 

13156 052154 1002 BNE 11$ 

13157 052156 005037 177766 CLR CPUERR 

13158 052162 11$: IF ACTFLAG IS TRUE OR APTFLAG IS TRUE OR FATAL$ IS TRUE 
052162 005737 002350 TST ACTFLAG 
0521 001 BNE L512 
052170 005737 002352 TST APTFLAG 
052174 100 BNE L512 
052176 005737 002064 TST FATAL$ 
052202 001405 BEQ L513 
0522 LS12:ssse3 

1 9 0522 012737 000001 056646 MOV #1,$MSGTY ;FOR APT 

13160 052212 000137 040604 JMP EXIT 

13161 052216 END ;OF IF ACTFLAG 
052216 L513:ssssiz 

13162 052216 IF XXDPCHAIN IS TRUE AND $ERTTL HI #20 
052216 005737 002354 TST XXDPCHAIN 
052222 141 BEQ L514 
052224 023727 002630 000020 CMP S$ERTTL,#20 
052232 101410 BLOS L514 

13163 052234 TYPE MSGO66 ;sERROR COUNT EXCEEDED 20 - ABORTING FOR XXDP CHAIN 
052234 104401 070051 TYPEIT ,MSGO66 

.DOSABL CRF 

13164 052240 013700 000042 MOV 42,R0 

13165 052244 005037 000042 CLR 42 

13166 052250 000137 014022 JMP $ZAP42 

13167 052254 END ;OF IF XXDPCHAIN 
052254 L514:sssee3 

13168 052254 END ;OF IF DETFLAG 
052254 LSlisssssss 

13169 052254 ELSE 
052254 000403 BR L515 
052256 L507:sssse3 

13170 052256 SET HEADER 

012737 177777 002612 MOV #-1,HEADER 


e 
13171 052264 





END ;OF IF NOERROR 


te eee oe we 


-_— - ———— -———_— «-—- ee —_——— a ee me —— = — - -_—— — — 


E135 
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052264 LSUS:ssssas 
13172 052264 10$: CLEAR TOOMANY , NOERROR 
052264 005037 2 CLR TOOMANY 
052270 005037 002430 | CLR NOERROR 
13173 052274 105737 052310 TSTB IBSAVE ;POWER FAIL ERROR CALL? ;R-C 
13174 052300 001402 BEQ 213$ ;R-C 
13175 052302 000137 051530 JMP BACK ; JUMP IF SO 3R-C 
13176 052306 000002 2133: RTI ; ;sRETURN 
13177 052310 000000 IBSAVE: .WORD O 3;R-C 
13178 052312 000000 CPSAVE: .WORD 0 3R-C 
13179 052314 000000 RRF: .WORD O 3;R-C 
13180 .DSABL LSB 


9 
90 052316 
191 oaSase 


rs 
WUu 


1321 

13215 052424 
052424 

13216 052430 
052430 

13217 052432 

13218 052434 
052434 


13219 052440 
13220 052444 


104415 
104401 


005000 
153700 
001004 


013746 
104402 


104401 
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002660 


002015 


002020 


000177 
052626 


057274 
052432 


002430 
002612 
002064 


070120 


002660 
052464 
002430 
002612 


F135 
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1$: 


100$: 


110$: 


l2$: 


2s: 


3$: 


4$: 


13$: 


-SBTTL ROUTINE ERROR MESSAGE TYPEOUT 


Nee eee iri irri rrr iii iiiiitiiiiiiiiiti ii itt 
;*#THIS ROUTINE USES THE “ITEM CONTROL BYTE” C$ITEMB) TO DETERMINE WH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, 

;#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERR 


$ERRTYP : SAVREG 
TY 


TYPOC 
ABL 


$CRLF 
» CRLF 
CRF 


RO 
$ITEMB,RO 
1$ 


FROM THE 


;; "CARRIAGE RETURN” € "LINE FEED” 


;;PICKUP THE ITEM INDEX 
:s1F ITEM NUMBER IS i” 


;TYPE THE PC OF THE ERR 


ERRPC, <ERROR ADDRESS> 


ERRPC, -(SP) 


CRF 

11$ 
#177,R0 
100$ 
#PFECWS ,RO 
110$ 


CRO)+,3$ 


CRF 
0 


$CRLF 
a 


(RO)s, S$ 
6$ 
NOERROR 
13$ 
HEADER 
6$ 


CRF 


;;SAVE ERRPC FOR TYPEOUT 
;;ERROR ADDRESS 
;;GO TYPE--OCTAL ASCIICALL DIGITS) 


;;GET OUT 

;POWER MONITOR CALL? 

;BRANCH IF NOT 

;MOV ADDRESS OF PFE BIT ERROR TO RO 
;;ADJUST THE INDEX SO THAT IT WILL 
$8 WORK FOR THE ERROR TABLE 


+ sFORM TABLE POINTER 
sPICKUP “ERROR MESSAGE” POINTER 
SKIP TYPEOUT IF NO POINTER 
;IS THIS REALLY AN ERROR? 
;YE SKIP 
; TYPE “HEADER? 
:NO - SKIP 
;WAS IT A FATAL ERROR? 
;NO - SKIP 
;FATAL 


;;TYPE THE "ERROR MESSAGE” 


;; "ERROR MESSAGE” POINTER GOES HERE 


3; "CARRIAGE RETURN” € “LINE FEED“ 


;;PICKUP “DATA HEADER” POINTER 
;;SKIP TYPEOQUT IF 0 

;I1S THIS REALLY AN ERROR? 

;YES - SKIP 

; TYPE —"* 


; - SKI 
;;TYPE THE “DATA HEADER” 


- —— a. ee 


WHICH 
“ERROR — C$ERRTB), 


SEQ 0368 


613 
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SEQ 0369 
13226 052464 000000 S$: -WORD 0 ;;"DATA HEADER” POINTER GOES HERE 
13227 052466 TYPE $CRLF 3; "CARRIAGE RETURN” € “LINE FEED" 
052466 104401 002460 yn — 
13228 052472 012001 6$: MOV (RO)+,R1 ;;PICKUP “DATA TABLE" POINTER 


13229 052474 001427 BEQ 10$ ;;BR IF NO DATA TO BE TYPED 
13230 052476 012002 MOV C(RO)+,R2 ;;PICKUP “DATA FORMAT” POINTER 


——e oe ee ee > 
A CCT LL LL 
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13254 052546 
2546 


13255 052552 
56 


052612 
13262 052614 
13263 052620 


052620 
13264 052620 
052620 
1ae? 052624 


13267 oasees 
13268 Seseae 


112203 
303 


104401 
000207 


052636 
= 


ROUTINE ERROR MESSAGE TYPEOUT 


052512 


000002 


066107 


002110 
002612 


000200 
002220 
002430 
053266 


070557 


052672 


ee wr meme 


H13 
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7$: 


8$: 


9$: 


10$: 


I 
11$: RESREG 


130040 


.EVEN 

052722 PFECWS: .WORD 

127 PFECEM: .ASCIZ 
040 


PFECDH: .ASCIZ 





(R2)+,R3 

o ;MAKE IT A WORD ADDRESS 

a8$(R3) 

9$ 

#2,R1 ;UPDATE DATA TABLE POINTER 
Ri) ;;1S THERE ANOTHER NUMBER? 
O$ ;;BR IF NO 

MSGO18 ;TYPE 2 SPACES 

.MSGO18 

CRF 

7$ ; ;LOOP 

MUT ;1S THERE A MEMORY UNDER TEST 
11$ ;NO - SKIP 

HEADER ;YES - BUMP HEADER FLAG 


SET.IN @SWR AND 


DETFLAG IS FALSE AND NOERROR IS FALSE 
BIT #SW7,@SWR 


BEQ L516 
TST DETFLAG 
BNE L516 
TST NOERROR 
BNE L516 
DETAIL 
IF #SW7 
L516:ssis83 
MSG104 ;CONTROL Z 
»MSG104 
CRF 
;R-C 
PFECEM,PFECDH, PFECDT , PFECDF ;R- 


“POWER MONITOR BIT FOUND SET”  ;R 


"TESTNO ERR PC CPUERR” 


SEQ 0370 


——————— ee - 


———_— 0 <r — -—- — 


- + eee es = 
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13270 

13271 052722 
052730 

13272 052732 
052735 

13273 


120 103 

040 103 

125 105 

122 000 
056652 002020 
000000 

000 000 

000 


11s 
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040 
120 
122 
-EVEN ) 
052312 PFECDT: .WORD $TESTN,ERRPC,CPSAVE,0O 
000 PFECDF: .BYTE 0,0,0,0 


——— ee eee 


SEQ 0371 


- * oe _—_— -—-— = ee ee ee ee 8 ee 


13 
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ROUTINE ERROR MESSAGE TYPEOUT SEQ 0372 


13276 Pitti itt ttt ttt ttt ttt ttt ttt ttt t itt iti ttt iti titi iti ttt ttt ttt ttt it TTT TTT TTT TTT tit 
13277 :*ee OCTAL #*« 
13278 eee ge ee eamaaamens: 9 g-gn, 
13279 052736 TAG70$: TYPOCT acRi) TYPE AN OCTAL NUMBER 
052736 017146 000000 MOV a(Ri),-CSP) : SAVE aC(Ri) FOR TYPEOQUT 
052742 104402 TYPOC ~ ;3:;GO TYPE--OCTAL ASCIICALL DIGITS) 
.DSABL CRF 
13ge0 052744 000207 RETURN 
13282 STi titi ttt titi ttt titititttititittitittititititiitii it tit iii iti titi titi titititititt 
13283 ;*#** DECIMAL *««« 
13284 j SESSSSSEESSSSEEE SSE EEESEEEEESEEEESSSEESESELESEESESESESEEETESeECeTeseTECEESeseSs 
13285 052746 TAG71$: TYPDEC acRi) ; TYPE A DECIMAL NUMBER 
052746 017146 000000 MOV a(Ri),-CSP) 11 SAVE a(Ri) FOR TYPEOUT 
052752 104405 yn I -_ ;GO TYPE--DECIMAL ASCII WITH SIGN 
ieees 052754 000207 RETURN 
13288 ert t ttt ttt titi iti titi tit eri titi iii titi titi i itiiiiiititiiiiititiiiiiiiititiiiiit 
13289 ;*** INTERLEAVE ««« 
13290 PT iti titi titttititititititittttitititititittttittit ii it itt iti titi iii iiititititi. 
13291 052756 TAG72$: PUSH R1,R5 
052756 010146 MOV R1,-CSP) 
052760 010546 MOV RS,-(CSP) 
13292 052762 013701 002102 MOV BANK ,R1 
13293 052766 070127 000004 MUL »R1 
13294 052772 SET NOTAB ; INDICATE NO TABLE TO BE PRINTED - NOW 
052772 012737 177777 002372 MOV #-1,NOTAB 
13295 053 TYPE MSGO14 
053000 104401 066060 TYPEIT ,MSGO14 
.DSABL CRF 
13296 053004 004737 033404 CALL TCFIG1 
13297 053010 005037 002372 CLR NOTAB 
13298 053014 POP RS5S,R1 
053014 012605 MOV (SP)+,R5 
053016 012601 MOV (SP)+,R1 
13299 053020 TYPE MSGO14 ;1 SPACE 
053020 104401 066060 TYPEIT ,MSGO14 
DSABL CRF 
EES SY 053024 090207 RETURN 
13302 ttt titi ttititi tit iti titi ttitititititittititiiittittitttit titi tt ttt titi ttt tt tt it 
13303 ;*e* CSR «a% 
13304 Pitti ttt iit iititiititiititiititiitiititiititiitittitiittiititiitittitititi titi: 
13305 053026 TAG73$: PUSH R1,R5 
053026 010146 MOV R1,-CSP) 
053030 010546 MOV R5,-(CSP) 
13306 053032 013701 002102 MOV BANK ,R1 
13307 053036 070127 000004 MUL Ri 
13308 053042 SET NOTAB 
053042 012737 177777 002372 MOV #-1,NOTAB 
13309 053050 004737 033600 CALL TCFIG3 
13310 053054 005037 002372 CLR NOTAB 
13311 053060 POP R5,Ri 
053060 012605 MOV (SP)+,R5 
053062 012601 MOV (SP)+,R1 
13312 053064 000207 RETURN 





—————- en me! 
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13322 

13323 053100 
053100 
053104 
053106 
053107 


13324 053110 


013746 
104403 
002 
001 
000207 


013746 


104403 
003 
000 


000207 


002300 


002102 


K135 


—_——_—- mmm eee te 
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Pettitt ttt ttt ttt ttt ttt ttt ttt ttt ttt ttt itt ttt tittt ti ttt ttt t tt ttt ttt tT tT Tt TTT TTT tT 
;*#** PATTERN ««« 
Pettit itt t tt tt tt tt ttt tit ttt titi ttt iti iti ititititi titi iit ttt t tt ttt tt ttt ttt ti ttt 
TAG74$: TYPOCS REALPAT,<TYPE (0-77)>, 2,2 


MOV 


REALPAT, -(CSP) 


; SAVE REALPAT FOR TYPEOUT 
ITY ‘ (0-77) 
;:;G0 T A ies ASCII 
33 DIGIT(S) 


;;TYPE LEADING ZEROS 


5 FEES SEES EERE EEKEKEREAKE EERE EKER EEE EREREKEEEE SEES REESE EEE RES 


;#*e*« BANK «*« 


KEEEEEEERERER EERE REE EE EEE EERE EEEER ERE RAE EREEE EERE EERE EER EEE REARS EERE EEE EEE EE EE 
BANK,<TYPE (0-176)>,3 


TAG7SS : TYPOCS 
MOV 


BANK. -(SP) 


OoOw 
D 
nN 


; ; SAVE BANK FOR TYPEOUT 
;;TYPE (0-176) 

;;GO TYPE--OCTAL ASCII 
;;TYPE 3 DIGITCS) 

;; SUPPRESS LEADING ZEROS 


SEQ 0373 


Ee ee mm ree i- = 7 = 


L13 
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CVMJAAO MSV11-J MEMORY DIAG. 
OUT SEQ 0374 


ROUTINE ERROR MESSAGE TYPE 


5 ESSSSSSSSESSSESESSS ESSE SSS ESSSSSSESSE SESS SSS SECS SSS ESSERE ESSERE KESTER E SESE SEEES 


EE TT —_—_ «eee ee ee C- - 


13327 ;#ee MTYPE «e« 
13328 Pettitt tit ttt ttt ttt ttt titi titi titi iii t iti ii ttiitit iii titiiiiitiitittittititit tit} 
13329 orate 010146 TAG76$: PUSH R1,R5 
MOV Ri, = 
053114 010546 MOV RS. cep} 
13330 053116 013701 002102 MOV BANK ,R1 
13331 053122 9070127 000004 MUL #4 ,R 
— oBsice 012737 177777 002372 ” — 
MOV #-1,NOTAB 
13333 053134 TYPE MSGO19 
053134 104401 066112 TYPEIT ,MSGO19 
.DSABL CRF 
13334 053140 004737 033444 CALL TCFIG2 
13335 053144 005037 002372 CLR NOTAB 
; 083150 012605 os — 
MOV (SP)+,R5 
053152 012601 MOV (SP)+,R1 
pate 053154 000207 RETURN 
13339 ert tti titi titi titi titttiiiiiitititititiittiiiiiititititiiiititiiitiiititiiiiiit 
13340 ;*#** UNKNOWN DATA ««« 
13341 Pir rti titi ttiiii iti titiiiiitititiiititiitiititittititititttitittiitiititiiiiitity | 
13342 053156 TAG77$: TYPE MSGO61 
0531 104401 067767 TYPEIT ,MSGO61 
.DSABL CRF 
ES a 053162 000207 RETURN 
13345 5 EEEEEREEREEEEREEA EE EERE EES EERE EEREREREEEEREREREEEEEREEEEEEEEEEEEEEEEESRE EEE EEEES 
13346 ;*** PHYSICAL ADDRESS «+ 
13347 Pitti ii tit iiretir itr iri iii ri tii rr iit itiitiitiiitittittittitittttitiititiiiiiitt 
13348 053164 013737 002034 002040 TAG78$: MOV ADDRESS , PHYADD 
13349 053172 162737 06 002040 SUB #FIRST,PHYADD 
13350 053200 013737 002102 002042 MOV BANK , PHYADD+2 
13351 053206 006237 204 ASR PHYADD+2 
13352 053212 10300 BCC 1$ 
13353 053214 052737 100000 002040 BIS #BIT15,PHYADD 
13354 05322 012746 002040 1$: MOV #PHYADD , -C SP) ;POINTER TO DOUBLE WORD ON STACK 
13355 053226 73 056526 CALL $DB20 ;CALL DOUBLE PRECISION CONVERSION ROUTINE 
13356 053232 062706 000002 ADD #2,SP ;FIX STACK 
13357 053236 T8 
05323 104401 056634 ys , $0CTS8 
1stee 053242 000207 ETURN 
13360 PTT iT itittitiiiiritititititiiiiiiiiiititiiiiitiitiisititiiiititiiiiiiiitiititiiit 
13361 ;*#**« OCTAL BYTE ««« 
13362 it ititi iii iit itititiitititi ii titi i iti tititiitititititititiiititititiiiiiiiiiis 
13363 053244 TAG79$: TYPE MSGO18 :2 SPACES 
053244 104401 066107 TYPEIT ,MSGO18 
DSABL CRF 
13364 053250 TYPOCS a@C(R1),<TYPE BYTE>,3,Z 
053250 017146 000000 V a(Ri),-CSP) a ph Ne FOR TYPEOQUT 
053254 104403 TYPOS ;;G0 TYPE--OCTAL ASCII 
053256 003 .BYTE 3 ;;TYPE 3 DIGIT(S) 
053257 001 .BYTE 1 ;;1YPE LEADING ZEROS 


—— I ee 
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ROUTINE ERROR MESSAGE TYPEOUT 


- DSABL 
13365 053260 TYPE 
053260 104401 066060 yoy 


13366 053264 000207 RETURN 


CRF 
MSGO14 
.MSGO14 
CRF 


; SPACE 


SEQ 0375 


eee 


. — — —— <r a mam a a as 
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ROUTINE ERROR MESSAGE TYPEOUT SEQ 0376 


13410 053266 DETAIL: SUBTST <<SUBR DETAILED ERROR REPORT>> 
SSS SSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSESSSSSSESSSSESSESSEKE SKK SSeeeeseesese 
; *SUBTEST SUBR DETAILED ERROR REPORT 
§ FSS SSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSEKESSSSESSESKSSSSKAS SRS RHEE ESE 
13411 053266 005237 002220 INC TFLAG 
13412 053272 022737 000003 002220 CMP $3, DETFLAG 
13413 053300 101473 BLOS «43 
13414 053302 022737 000002 002220 CMP $2, DETFLAG 
13415 053310 001435 BEQ 
— 313 013746 002612 es MOV HEADER, -(SP) 
316 013746 002110 MOV MUT, -(5P) 
13417 053322 SET HEADER 
3322 012737 177777 002612 MOV #-1,HEADER 
13418 33 005037 002110 CLR MUT 
13419 053334 010037 002200 MOV RO, DETRO 
13420 3340 012700 002202 MOV @DETR1,RO 
1 10120 MOV R1,(RO)+ 
1342 346 010220 MOV R2,(RO)- 
1 350 010320 MOV R3.(RO)+ 
13424 053352 010420 MOV R4,(RO)+ 
13425 33 010520 MOV R5.(RO)+ 
1 26 356 013720 002024 MOV RRSP, (RO)+ 
1342 2 013720 002030 MOV ERRPSW, (RO)-+ 
1 28 013700 002200 MOV TRO, 
1342 3 SET R 
053372 012737 177777 002430 MOV #-1,NOERROR 
13430 0 104013 ERROR +13 
1 431 053402 000423 BR 1$ 
13432 053404 2s: PUSH HEADER, MUT 
053404 013746 002612 MOV HEADER, -(SP) 
053410 013746 002110 MOV MUT, -(SP) 
13433 053414 SET HEADER 
053414 012737 177777 002612 MOV #-1,HEADER 
13434 0 2 005037 002110 CLR MUT 
13435 6 SET NOERROR 
053426 012737 177777 002430 MOV #-1,NOERROR 
134 6 0 104031 ERROR +31 
134 : 022737 000005 004010 CMP #5, PROTYP ;IS THIS AN 11/83 ? 
13438 001002 BNE 13 
1 439 0 6 005037 177766 CLR CPUERR 
13440 1$: POP MUT , HEADER 
053452 012637 002110 MOV (SP)+,MUT 
0 012637 002612 MOV (SP)+,HEADER 
1344) WARNING RECURSIVE 
13442 053462 004737 053266 ALL DETAIL 
13443 053466 000207 RETURN 


— ee ee —_—_——_ ~~ 


053504 
13451 053506 
053506 
13452 053512 
053512 
13453 053516 


13454 oe S22 
13455 053522 


13460 053542 
053542 
13461 053546 
053546 
13462 053546 
053546 
petite 
13463 053552 
053552 
053560 
053566 
053570 
13464 053570 
053570 
13465 Oetere 


| 13470 053612 
| 1347] 053616 


- — —m ddd) emma cae, aay — ee ae 


104401 
013701 


005037 
006301 


103006 
104426 


013746 
104402 


104401 


005701 
001407 


062737 


023727 
003757 


012601 
012637 
012637 


010046 
010146 
104401 


013701 
162701 


055152 
002150 
002152 


067745 


002660 
002224 


002152 


002150 


066107 


000002 
002152 


002152 
002150 


070336 


002574 
000002 


-- mee ~ «= _— > + - _——— 


B14 
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002152 
000036 





4$: 


;SIMULATE CONTROL “T” 
CALL CONTT s;DISPLAY “DISPLAY” INFO 


;TYPE CONTENTS OF ALL CSR’S 
PUSH | 


CSR, CSRNO,R1 
MOV CSR,-(SP) 
MOV CSRNO, - (SP) 
MOV Ri, M8) 
TYPE MSGO58 
TYPEIT ,MSGO5S8 
-DSABL CRF 
TYPE $CRLF 
TYPEIT ,$CRLF 
-DSABL CRF 
MOV TOTCSRS,R1 
BEGIN DUMPCSRLOOP 
Bl0S:ssssas 
FOR CSRNO := #0 TO #36 BY #2 
CLR CSRNO 
BlO4:sssss: 
Ri 
ON. ERROR 
BCC L517 
READCSR 
TYPOCT cs 
MOV CSR, -(SP) ;;SAVE CSR FOR TYPEOQUT 
TYPOC ;;GO TYPE--OCTAL ASCIICALL DIGITS) 
DSABL CRF 
T MSGO18 ;2 SPACES 
TYPEIT ,MSGO18 
DSABL CRF 


END ;OF ON.ERROR 
IF Ri EQ #0 THEN LEAVE DUMPCSRLOOP 


LS17:ssssss 


TST R1 
BEQ E103 


ADD #2,CSRNO 
CMP CSRNO, #36 
BLE B104 
ElO4:ssssaas 


El03:sssscs 


END ;OF FOR CSRNO 


END DUMPCSRLOOP 

POP Ri,CSRNO,CSR ~) 

MOV (SP)+,CSRNO 
SP ) 


; TYPE STACKS 
PUSH RO,R1 


TYPE MSGO88 KERNEL STACK 
TYPEIT ,MSGO88 

-DS CRF 

MOV KSTACK,R1 

SUB #2,R1 


SEQ 0377 


EE 
A OTE LL LL 


CVMJAAO MSV11-J MEMORY 
| SUBR DETAILED ERROR 


13472 053622 
05 
13473 053624 


13474 053630 
05 


13475 053634 
0S 


13476 053640 
05 


13477 Oreeas 


3702 

13485 053704 
053704 

13486 053710 
053710 
053714 

13487 053716 
13488 053716 
053716 
13489 053722 
053722 
053724 

13490 053726 
053726 

1349] 053732 
053732 
053734 

13492 053736 
053736 


053742 
053746 


010600 


104401 


012601 
012600 


104401 


020027 
002016 


104401 


010046 
104402 


104401 


011046 
104402 


062700 
020027 
003763 


DIAG. 
REPORT 


002660 


066107 


000002 


002456 


030000 
010000 


070354 


000740 


002660 


066107 


000002 
000736 


Ci4 
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177776 
177776 


FOR RO := SP TO Ri BY #2 
MOV SP,RO 
BlOS:sissaz 
TYPE $CRLF 
TYPEIT ,$CRLF 
-DSABL CRF 


;;SAVE RO FOR TYPEQUT 
;;GO TYPE--OCTAL ASCIICALL DIGITS) 


MSGO018 ;2 SPACES 
TYPEIT ,MSGO18 
-DSABL CRF 
TYPOCT (RO) 

MOV CRO), -CSP) ;;SAVE (RO) FOR TYPEOU 

TYPOC ;;GO TYPE--OCTAL ASCTTCALL DIGITS) 

-DSABL_ CRF 

END ;OF FOR RO 
ADD #2,R0 
CMP RO,R1 
BLE 6105 


El05S:sssssss 
;SET PREVIOUS MODE TO SUPERVISOR 
T NOSUPER 


DET1 
BIC #BIT13!B1IT12,PSW 
BIS + Sli 


MFPI 
POP R1,RO 
MOV (SP)+,R1 
MOV (SP)+,RO 
TYPE MSGO89 ;SUPERVISOR STACK 
TYPEIT ,MSGO89 
-DSABL CRF 
IF RO LT #SUPSTK 
CMP RO, #SUPSTK 
BGE L520 
FOR RO := RO TO #SUPSTK-2 BY #2 
Bl06:sissi3 
TYPE $CRLF 
TYPEIT ,$CRLF 
SABL__ CRF 
TYPOCT RO 
V RO, -CSP) ;;SAVE RO FOR TYPEOUT 
YPOC ;3GO TYPE--OCTAL ASCIICALL DIGITS) 
DSABL CRF 
TYP MSGO18 ;2 SPACES 


CRF 
TYPOCT (RO) 
TYPOC 


-DSABL CRF 
END ;OF FOR RO 


;;SAVE (RO) FOR TYPEOU 
;;GO TYPE--OCTAL ASCITCALL DIGITS) 


ADD 
BLE B106 


#2,R0 
CMP RO, @SUPSTK - 


SEQ 0378 


CVMJAAO MSV11-J MEMORY DIAG. 
SUBR 


DETAILED ERROR REPORT 


053750 
13493 peed». 
053752 
13494 053752 
053752 


13495 053756 
053756 


053774 
54000 


13504 oeenee 
054010 


13505 054012 
054012 


13506 054016 
054016 
54020 


13507 Oreess 


34 

13508 054034 
or, 34 

13509 Srenee 


13510 054042 
13511 eahas 
13512 054046 
13513 054052 

054052 
13514 054054 


000402 


104401 


052737 
006506 


012600 
104401 


020027 
002016 


104401 


010046 
104402 


104401 


011046 
104402 


062700 
020027 
003763 


000402 


104401 


104401 
005037 


012600 
000207 


070412 


030000 


070376 


000700 


002660 


066107 


000002 
000676 


070412 


002660 
002220 


Di4 
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177776 ~=DETI: 





MSGO91 
»MSGO91 
RF 


C 
OF IF RO 


;SET PREVIOUS MODE TO USER 
BI — 


POP RO 


TYPE MSGO90 
»MSGO90 


.DSABL CRF 
IF RO LT #USESTK 


31S EMPTY 


;USER STACK 


:= RO TO #USESTK-2 BY #2 
$CRLF 


FOR RO 


TYPE 
TYPEIT ,$CRLF 
.DSABL CRF 

TYPOC 


CRF 
TYPOCT CRO) 
MOV CRO), -CSP) 
TYPOC 


-DSABL CRF 
END ;OF FOR RO 


— 


MSGO91 ;IS EMPTY 


»MSGO91 
. CRF 
END ;OF IF RO 


$CRLF 
ae 


‘ CR 
CLR DETFLAG 
RO 


;;SAVE RO FOR TYPEOUT 
;;GO TYPE--OCTAL ASCIICALL DIGITS) 


3:2 SPACES 


;;SAVE CRO) FOR TYPEOUT 
;3;GO TYPE--OCTAL ASCIICALL DIGITS) 


El06:issaaas 


BR L521 
LS20:sssac3 


LS2l:iissaes 


MOV (SP )+,RO 


CMP RO, #USESTK 
BGE L522 


ADD ¢# 


El07ssssssse 
BR L523 


#2,RO 
CMP RO, #USESTK-2 
BLE B107 


MOV (SP)+,RO 


SEQ 0379 


— ~~ 


—— me —_—<—- ———— ee -- . 7 —- ~ ——-— | 


E14 
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‘ROUTINE BINARY TO OCTAL CASCII) AND TYPE SEQ 0380 | 

1 aes .SBTTL ROUTINE BINARY TO OCTAL CASCII) AND TYPE 

13554 “car ch ca a eee tee ee es Ge ae ee eeteee 

13555 *THIS ROUTINE IS USED TO oe A 16-BIT BINARY NUMBER TO A 6-DIGIT 

13556 * SOCTAL (ASCII) NUMBER AND TYPE IT. 

Rou :#$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
;* 

13559 :* MOV NUM, - (SP) ; ;NUMBER TO BE TYPED 

13560 :* TYPOS ;;CALL FOR TYPEOUT 

13561 ;* .BYTE WN ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

13562 ;* BYTE ;;M=1 OR O 

13563 ;* ;;1=TYPE LEADING ZEROS 

+eaes * ;;0=SUPPRESS LEADING ZEROS 
;* 

13566 ;*#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

13567 ;*$TYPOS OR $TYPOC 

13568 ;*CALL: 

13569 :* MOV NUM, -(SP) ; ;NUMBER TO BE TYPED 

ier :* TYPON ;;CALL FOR TYPEOUT 
;* 

13572 ;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

13573 ;*CALL: 

13574 ;* MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

1 3ese ;* TYPOC ;;CALL FOR TYPEOUT 

13577 054056 017646 900000 $TYPOS: MOV acSP),-CSP) ;;PICKUP THE MODE 

13578 054062 116637 000001 054301 MOVB 1CSP),$OF ILL : LOAD ZERO FILL SWITCH 

13579 054070 112637 054303 MOVB (SP )+, $OMODE+ 1 sNUMBER OF DIGITS TO TYPE 

13580 054074 062716 000002 ADD #2, (SP) : ADJUST RETURN ADDRESS 

13581 054100 000406 BR $TYPON 

13582 054102 112737 000001 054301 $TYPOC: MOVB #1, $OF ILL ;;SET THE ZERO FILL SWITCH 

13583 054110 112737 000006 054303 MOVB #6, $OMODE +1 ;;SET FOR SIX(6) DIGITS 

13584 054116 112737 000005 054300 $TYPON: MOVB #5, $OCNT ;;SET THE ITERATION COUNT 

13585 054124 010346 MOV R3,-(SP) ;;SAVE R3 

13587 054130 010546 MOV R5,-(CSP) ;;SAVE RS 

13588 054132 113704 054303 MOVB $OMODE +1 ,R4 ;;GET THE NUMBER OF DIGITS TO TYPE 

13589 054136 005404 NEG R4 

13590 054140 062704 000006 ADD #6 ,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 

13591 054144 110437 054302 MOVB R4, SOMODE ;;SAVE IT FOR USE 

13592 054150 113704 054301 MOVB $OFILL ,R4 ;;GET THE ZERO FILL SWITCH 

13593 054154 016605 000012 MOV 12CSP),R5 ;;PICKUP THE INPUT NUMBER 

13594 054160 005003 CLR R3 ;;CLEAR THE OUTPUT WORD 

13595 054162 006105 1$: ROL R5 : ROTATE MSB INTO "“C" 

13596 054164 000404 BR 3$ DO MSB 

13597 054166 006105 2s: ROL R5 FORM THIS DIGIT 

13598 054170 006105 ROL RS 

13599 054172 006105 ROL 

13600 054174 010503 MOV RS,R3 

13601 054176 006103 3$: ROL R3 ;;GET LSB OF THIS DIGIT 

054 105337 054302 DECB $OMODE pigs THIS DIGIT? 

13603 054204 100016 BPL 6$ R IF NO 

13604 054206 042703 177770 BIC #177770,R3 GET RID OF JUNK 

13605 054212 001002 BNE 4$ ;;TEST FOR O 

13606 054214 005704 TST R4 ; ; SUPPRESS THIS 0? 

13607 054216 001403 BEQ 5$ ;;BR IF YES 

13608 054220 005204 4$: INC R4 ;;DON'T SUPPRESS ANYMORE 0'S 


-———— 


=.= eee 


«ss ow os - 


ROUTINE BINAR 


13626 300 
13627 054301 
13628 054302 


‘———— << a «<= e 


~CVMJAAO MSV11- ~ MEMORY DIAG. 
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TO OCTAL (ASCII) AND TYPE 


000060 
000040 
054276 
054276 
054300 


000002 


BIS #'O,R3 
S$: BIS #’ ,R3 a 
MOVB R3,8$ ; SAVE FOR TYPING 
TYPE $ 
yi 24) ,8$ 
6$: DECB $OCNT +s COUNT BY i 
BGT 2$ ;BR IF MORE TO DO 
BLT 7$ BR IF DONE 
INC R4 
BR ;GO DO THE LA 
7$: MOV (SP)+,R5 33R 
MOV (SP)+,R4 se 
MOV SP)+,R3 ; REST 
000004 MOV (SP),4(SP) 
MOV SP )+, CSP) 
RTI ; sRETUR 
8$: -BYTE 


.BY 
$OCNT: .BYTE 
$OFILL: .BYTE 
$OMODE: .WORD 


ad 
m 
oooo°o “f-7 


= ——— ee Oe 


: MAKE THIS DIGIT ASCII 
SCII IF 


_33G0 TYPE THIS DIGIT 


;; INSURE LAST DIGIT ISN'T A BLANK 
33 ST DIGIT 


; R3 
;;SET THE STACK FOR RETURNING 


N 
1 FOR ASCII DIGIT 
;; TERMINATOR FOR TYPE ROUTINE 
;;OCTAL DIGIT COUNTER 
;;ZERO FILL SWITCH 
; NUMBER OF DIGITS TO TYPE 


SEQ 0381 


G14 


CVMJAAO MSV11-J MEMORY DIAG. MACRO VOS.0lb Friday 15-Feb-85 16:10 Page 438 


ROUTINE CONVERT BINARY TO DECIMAL AND TYPE SEQ 0382 | 
13630 .SBTTL ROUTINE CONVERT BINARY TO DECIMAL AND TYPE 
13631 fF SSSSSSESSSSSSSSS SS SESS SSS SES SESS SS SESSA SSEKEESSEKSEKSESSEKASSSESSESSESS SSSR ECE SEE EEE 
13632 ;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
13633 ;#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
13634 ;#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
13635 ;#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
13636 ;#REPLACED WITH SPACES. 
13637 ;*CALL : 
13638 : MOVs. NUM, -( SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
13639 + TYPDS ;;GO TO THE ROUTINE 
13640 054304 $TYPDS: PUSH  RO,R1,R2,R3,R5 
054304 010046 MOV RO, -(SP) 
306 010146 MOV Ri, -(SP) 
054310 010246 MOV R2, -(SP) 
010346 MOV R3,-(SP) 
054314 010546 : MOV RS, -(SP) 
13641 054316 012746 020200 MOV § #20200,-(SP)  ;;SET BLANK SWITCH AND SIGN 
13642 054322 016605 000020 MOV = 20(SP),R5 ;;GET THE INPUT NUMBER 
13643 054326 100004 BPL si ;;BR IF INPUT IS POS 
13644 054330 005405 NEG = R5 ;;MAKE THE BINARY NUMBER POS 
13645 054332 112766 000055 000001 MOVB = #" -, 1 SP) ;;MAKE THE ASCII NUMBER NEG 
13646 054340 005000 1$: CLR — RO ::ZERO THE CONSTANTS INDEX 
13647 054342 012703 054520 MOV = #$DBLK, R3 ;SETUP THE OUTPUT POINTER 
13648 054346 112723 000040 MOVB = #—_, (R3)+ :;SET THE FIRST CHARACTER TO A BLANK 
13649 054352 005002 2: CLR Re ::CLEAR THE BCD NUMBER 
13650 054354 016001 054510 MOV § $DTBL(RO),R1 ;GET THE CONSTANT 
3651 054360 160105 3$: SUB = R1,R5 : FORM THIS BCD DIGIT 
13652 054362 002402 BLT 4$ ;BR IF 
13653 054364 005202 INC = R2 ;;INCREASE THE BCD DIGIT BY 1 
13654 054366 000774 BR 3$ 
13655 054370 060105 4%: ADD  — R1,R5 ;;ADD BACK THE CONSTANT 
054372 005702 TST = R2 ;;CHECK IF BCD DIGIT=0 
13657 054374 BNE $ ;;FALL THROUGH 
13658 054376 105716 TSTB = (SP) ;#STILL DOING LEADING 0'S? 
13659 054400 100407 BMI = 7$ ;:BR IF 
13660 054402 106316 5$: ASLB = (SP) ; 3M 
13661 054404 103003 BCC 3Os«6$ ;:BR IF NO 
13662 054406 116663 000001 177777 MOVE  1(SP),-1(R3)  ;;YES--SET THE SIGN 
13663 054414 052702 000060 6$: BIS #'0,R2 ;;MAKE THE BCD DIGIT ASCII 
13664 054420 052702 000040 7$: BIS # ,R2 ;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
13665 054424 110223 MOVB  -R2, (R3)+ ;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
13666 054426 005720 TST = (RO) ;;JUST INCREMENTING 
13667 054430 020027 000010 CMP = RO, #10 :;CHECK THE TABLE INDEX 
13668 054434 002746 BLT 2% ;GO DO THE NEXT DIGIT 
13669 054436 003002 BGT 8$ : G0 TO EXIT 
13670 054440 010502 MOV = RS, R2 ;;GET THE LSD 
13671 054442 000764 BR 6$ ;;G0 CHANGE TO ASCII 
13672 054444 105726 8$: TSTB = (SP) ;;WAS THE LSD THE FIRST NON-ZERO? 
13673 054446 100003 BPLséO98S ;;BR IF NO 
13674 054450 116663 177777 177776 MOVB -1(SP),-2(R3)  ;;YES--SET THE SIGN FOR TYPING 
13675 054456 105013 9$: CLRB = (R3) ;;SET THE TERMINATOR 
13676 054460 POP =—s-R5,R3,R2,R1,RO 
054460 012605 MOV (SP)+,R5 
054462 012603 MOV (SP)+,R3 
054464 012602 MOV (SP)-+,R2 
054466 012601 MOV (SP)-,R1 
MOV (SP)+,RO 


054470 012600 


CVMJAAO MSV11-J MEMORY DI 
‘ROUTINE CONVERT BINARY TO DECIMAL AND TYPE 


| 13677 054472 
72 


104401 


H1i4 
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$DBLK ;;NOW TYPE THE NUMBER 
, $DBLK 

CRF 

2(SP),4(SP) 3:ADJUST THE STACK 


(SP)+, (SP) 
;;RETURN TO USER 


0,0,0,0 


ee 


SEQ 0383 


— —._ —-— 


—_— _- —_———— eee ee 


114 
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ROUTINE TTY INPUT 


SEQ 0384 


13687 -SBTTL ROUTINE TTY INPUT 
13688 5 FECES EEEEEEEEEESEEEEEESEESERE EERE SEER ER REESE EERE EREREREERE EERE E EERE EERE EES 
13689 ; *SOF TWARE SWITCH REGISTER CHANGE 
13690 ;*#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
13691 ;#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
13692 ;*#WHEN OPERATING IN TTY FLAG MODE. 
13693 ‘ E LSB 
13694 054530 $CKSWR: 
13695 054530 005737 047246 TST XOCHAR ;;SOMETHING THERE? 
0545 001406 BEQ NOCH ;; GO ON IF NOT 
13697 054536 013746 047246 MOV XOCHAR, -( SP) 33 
13698 05454 5037 047246 CLR XOCHAR 
054 137 054570 JMP CONTS1 
13700 054552 105777 126064 NOCH: TSTB asTKS > ;CHAR THERE? 
13701 054556 00136 BPL WRE ;;1F NO, DON’T WAIT AROUND 
054 117746 126060 MOVB a$TKB, -C SP) ;;SAVE THE CHAR 
054 042716 177600 BIC #tC0177,CSP) ;;STRIP-OFF a. ASCII 
13704 054570 022716 CONTS1: CMP #6, (SP) ;IS IT CONTROL F? 
13705 054574 001 BNE i$ ;NO SKIP 
13706 054576 7 041054 CALL FIELDSERVICE 
13707 054602 022716 000024 1$: CMP #24 ,(SP) ;IS IT CONTROL T? 
13708 054606 001002 BNE ;NO - SKIP 
3709 054610 004737 055152 CALL CONTT ;YES - CALL CONTROL T ROUTINE 
13710 054614 022716 000003 16$: CMP #3, (SP) ;1S IT CONTROL ©? 
711 054620 14 BEQ S$ ;YES EXIT #eeeeNOTE*eees STACK IS SCREWED UP! 
13712 054622 022716 000023 2$: CMP #23, (SP) IS IT CONTROL S? 
713 0 00100 BNE 17$ ;NO - SKIP 
13714 054630 004737 055226 CALL CONTS ;YES - CALL CONTROL S ROUTINE 
13715 054634 022716 000013 17$: CMP #13,(SP) Pe IT CONTROL K? 
13716 054640 001005 NE 6$ SKIP 
13717 054642 TYPE $CNTLK TYPE A tK 
054642 104401 055144 yes a 
13718 054646 013706 002146 V CTLKVEC, SP ;RESET KSP TO AFTER PATTERN EXEC ROUTINE 
13719 054652 207 RETURN sRETURN TO PATTERN EXEC ROUTINE 
13720 0546 022737 000176 002636 63: CMP #SWREG , SWR 31S THE SOFT-SWR SELECTED? 
13721 054662 001075 BNE CKEND ;;BRANCH IF NO 
13722 054664 022716 000007 CMP #7,(SP) ;:;1S IT A CONTROL G? 
13723 054670 001072 BNE CKEND ;;NO, RETURN TO USER 
13724 054672 005737 002062 TST $AUTO ;ARE WE RUNNING IN AUTO-MODE? 
13725 054676 001067 BNE CKEND ;BRANCH IF YES 
13726 054700 TYPE $CNTLG ;ECHO THE CONTROL-G (1G) 
054 104401 055750 yin? y 3 alla 
13727 054704 $GTSWR: TYPE $MSWR ;; TYPE CURRENT CONTENTS 
054704 104401 055755 TYPEIT ,$MSWR 
DSABL CRF 
13728 054710 TYPOCT a@SWR ;;O0F THE SWR 
054710 017746 125722 V @SWR , - (SP) SAVE @SWR FOR TYPEOU 
054714 104402 pis one ;;GO TYPE--OCTAL ASCTICALL DIGITS) 
13729 054716 TYPE $MNEW ; ;PROMPT FOR NEW SWR 
054716 104401 055766 TYPEIT ,$MNEW 
.DSABL CRF 
13730 054722 005046 3$: CLR -(SP) ;;CLEAR COUNTER 
13731 054724 005046 CLR -(SP) ;;THE NEW SWR 
13732 054726 105777 125710 4$: TSTB asTKS :;CHAR THERE? 


ee 


CVMJAAO MSV11-J MEMORY 


ROUTINE TTY INPUT 


13733 054732 


13738 054752 
52 


13739 054756 


13743 054774 
74 


13744 055000 
fons 055004 


13751 055030 
5030 
5034 
13752 055036 
13753 055042 
055042 
055044 

13754 055044 
13785 pera es 
13756 055050 
055050 


13757 055054 


104401 
000002 


DIAG. 


125704 
177600 
000003 


055736 


000006 
055743 
000006 
000015 
000004 
000002 
002566 
000006 


000010 


002660 


J14 
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125606 


BPL 4$ 
BIC #tC177,CSP) 
CMP (SP),#3 
BNE 7$ 
5$: TYPE $CNTLC 
TYPEIT ,$CNTLC 
DSABL CRF 
ADD #6 ,SP 
JMP QUIT 
7$: CMP (SP),#25 
BNE 9$ 
TYPE $CNTLU 
TYPEIT ,$CNTLU 
.DSABL CR 
8$: ADD #6, SP 
BR 3$ 
9$: CMP (SP),#15 
BNE 13$ 
TST 4(SP) 
BEQ 0$ 
MOV 2(SP),aSWR 
10$: IF SWRFLG IS TRUE 
ADD #6,SP 
ELSE 
ADD #10,SP 
END 
TYPE $CRLF 
TYPEIT ,$CRLF 
.DSABL CRF 
SWREND: RTI 


;;IF NOT TRY AGAIN 

;;PICK UP CHAR 

;sMAKE IT 7-BIT ASCII 

:;IS ITA Be 
;;BRANCH IF NOT 

33 YES, ECHO CONTROL-C (tC) 


;;CLEAN UP STACK 
; sCONT a C HALT 

;;IS IT A_CONTROL-U? 

; BRANCH IF NOT 

;;YES, ECHO CUNTROL-U (tU) 


;;IGNORE PREVIOUS INPUT 
;;LET'S TRY IT AGAIN 

ii T A_<CR>? 

;;BRANCH IF NO 

;;YES, IS IT THE FIRST CHAR? 
;;BRANCH IF YES 

;;SAVE NEW SWR 


;;CLEAR UP STACK 


;;CLEAR UP STACK 


—— —_—_—— -— ——_— err 


TST SWRFLG 


BEQ L524 


BR L525 


Ls25:ssseee 


;;ECHO <CR> AND <LF> 


; ;RETURN 


SEQ 0385 


- | a LR —-_ ee _ 


K14 
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ROUTINE TTY INPUT SEQ 0386 


3758 055056 062706 000002 CKEND: ADD #2 ,SP ;sFIX STACK 

13759 055062 2 RTI ;RETURN 

05 737 047250 13%: CALL $TYPEC ;;ECHO CHAR 
13761 055070 021627 000060 CMP (SP), #60 ;;CHAR < 
13762 055074 2420 BLT ;;BRANCH IF YES 
13763 055076 021627 000067 CMP (SP), #67 ;;CHAR > 7? 
13764 055102 003015 BGT ;;BRANCH IF Y 
13765 0551 042726 000060 BIC #60, (SP )+ ;;STRIP-OFF ASCII 
13766 055110 005766 000002 TST 2(SP) ;;I1S THIS THE FIRST CHAR 
13767 055114 001403 BEQ 14$ ;;BRANCH IF YES 
13768 0551 006316 ASL (SP) ;;NO, SHIFT PRESENT 
13769 055120 006316 ASL (SP) ;; CHAR OVER TO MAKE 
13770 055122 006316 ASL (SP) 33 OM FOR NEW ONE. 
13771 055124 005266 000002 14$: INC 2(SP ) ;;KEEP COUNT OF CHAR 
13772 055130 056616 177776 BIS -2(SP), (SP) ;;SET IN NEW CHAR 
13773 055134 000674 BR 4$ ;;GET THE NEXT ONE 
13774 055136 15$: TYPE $QUES 3;TYPE ?<CR><LF> 

0551 104401 002657 TYPEIT ,$QUES 

DSABL CRF 

13775 055142 000716 BR 8$ ; SIMULATE CONTROL -U 
13776 055144 136 113 015 $CNTLK: .ASCIZ /tK/<15><12> ;CONTROL K ASCII STRING 

055147 012 000 
13777 .EVEN 
13778 ._DSABL LSB 


cr 


_ ——— 


—_— Lf a: a. ii. ie 


CVMJAAO MSV11-J MEMORY DIAG. 
‘ROUTINE TTY INPUT 


| 13781 055152 


13782 055152 
13783 055154 
055154 
13793 055160 
055160 
055164 
13794 055166 
055166 
13795 rates 
13796 055172 
055172 
13797 ora re 
055204 
055205 


13798 055206 
055206 


13799 Oasis 
055221 
13803 055222 
055222 
13804 055224 
13805 


010046 
104401 
005737 
001402 
104401 


104401 


013746 
104403 
003 
000 
104401 
013746 
104403 
002 
000 


012600 
000207 


002660 


902126 


070424 


070440 


002102 


070446 


002300 


L1i4 
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CONTT: SUBTST <<CONTROL T>> 


—_— | ——— eee 


§FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESCSSEASSESE KEARSE ARESCSSRRSE SESE SE RESEEEEEE 


; *SUBTEST CONTROL T 


{SEER EEE REESE EERE EEE SEE ES SEER ESSE ERE SE EEE SE EET ERATE ERE E REE SRER ESE TEC ERE REE EES 
PUSH RO | 


TYPE $CRLF 
TYPEIT ,$CRLF 
-DSABL CRF 

IF RLFLAG IS TRUE 


TYPE MSGO092 
TYPEIT , 


MSGO92 
-DSABL CRF 
END ;OF IF RLFLAG 


TYPE MSGO93 

»MSGO93 

CRF 

POCS BANK, ,3 
BANK, -(SP) 


. 3 

-BYTE 0 

-DSABL CRF 
TYPE MSGO95 

»MSGO95 


‘ L_ CRF 
TYPOCS REALPAT, 
MOV . REALPAT, -(SP) 


MOV RO, -(SP) 
TST RLFLAG 
BEQ L526 
;RELOCATED 
LS26:isisae 
; BANK= 


; TYPE 3 DIGITS 
;;SAVE BANK FOR TYPEOUT 
+360 TYPE--OCTAL ASCII 


; GIT(S) 
; SUPPRESS LEADING ZEROS 
;PAT= 


2 ;TYPE 2 DIGITS 
;;SAVE REALPAT FOR TYPEOUT 
;;GO TYPE--OCTAL ASCII 
;;TYPE 2 DIGITCS) 
;;SUPPRESS LEADING ZEROS 


MOV (SP)+,RO 


LL A ON 


SEQ 0387 


‘ 


—  — 4 mn TT TE TT —_—_—— ar nc 


M14 
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CONTROL S & CONTROL @ SEQ 0388 
13806 055226 CONTS: SUBTST <<CONTROL S$ & CONTROL Q>> 
FESS SSSSSSSSSSSSSSSSSSSSASSSESSSSSSSSSSSSASESKSSSSESSE SEES ESSESSSSSSEKEKES SRE KES EES SEEES 
; *SUBTEST CONTROL S & CONTROL 
§ SESS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSSSSSSESSESSESSESKSESSESSSS SESE ESE SCE ESSE 
13807 055226 POF RO ;GET RID OF RETURN ADDRESS FROM STACK 
055226 012600 MOV (SP)+,RO 
13808 055230 105777 125406 CONTS2: TSTB asTKS ;WAIT FOR CHARACTER 
13809 055234 100375 BPL 
13810 055236 117716 125402 MOVB § a$TKB, (SP) ;REPLACE OVER OLD CHARACTER ON STACK 
13811 055242 042716 177600 BIC #+C177, (SP) ;STRIP ALL BUT ASCII 


13812 055246 IF (SP) EQ #21 ;IF IT IS A CONTROL Q 
055246 021627 000021 CMP (SP),#21 
055252 001003 BNE L527 
13813 055254 000137 054570 JMP CONTS1 
13814 055260 ELSE ; 
055260 000401 BR L530 
055262 LS27 sistas 
13815 055262 000762 BR CONTS2 
13816 055264 END ;OF IF (SP) 
055264 LSO30:sssace 


—— ee ee 


-——— a = -<--S- = 


—= —_— — 


on 
—- § 


Seeey 3 
SSSSSS5 FE 
Oa 


Seeeeeee 
wa 
z 


Ste8 
: 


sees: 


RARRRARA 


Oo Oo oo oe 
pete 
4 


FESsEse 

SeUoubu 

g9999%°3 
gees 


eh he ep pe pe 
SRAAR 


SeSes 
whore 
s3sss 
SLBLES 


pe pe pe 
SSSeeeeo 
EESESS 
w 
sss 
fo 2r 


SSS 
Fay 4 
ae 
eS 


Ubunmeo 


WBUUWw 


oe 


Seuece 


eb bb be be be bp pb pe ps pe 


ee 


0 0 
3871 055474 
3872 055509 


a A LT 


37 
122713 


000004 
125342 


125336 
177600 


125310 


000040 


055712 
055736 


000003 


055736 


000400 
002420 


040604 
040534 
000177 


N14 
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FSS SSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSESSESRSSSSSESSSSSSSE SS SS eseseseeece 


eT ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


; CAL 
ls RDCHR ;;INPUT A SINGLE CHARACTER FROM THE TTY 
:* RETURN HERE ; ;CHARACTER IS ON THE STACK 
:* ;;WITH PARITY BIT STRIPPED OFr 
; 
$RDCHR: MOV (SP),-(CSP) ; HE PC 
000002 MOV 4(SP),2CSP) ;:;SAVE THE PS 
1$: TSTB asTKS ;;WAIT F 
BPL $ ;3;A CHARACTER 
000004 MOVB a$TKB ,4(SP ;;READ THE TTY 
000004 BIC #tC<177>,4(¢SP) ;;GET RID OF JUNK IF ANY 
000023 CMP 4(SP),#2 3318S IT A CONTROL-S? 
BNE $ ; ;BRANCH IF NO 
2$: TSTB asTKS ;;WAIT FOR A CHARACTER 
BPL $ ;;LOOP UNTIL ITS THERE 
MOVB a$TKB, -CSP) ;;GET CHARACTER 
BIC #tC177,(SP) ;3MAKE IT 7-BIT ASCII 
CMP (SP)+, #21 3:18 IT A CONTROL-Q? 
BNE ;31F NOT DISCARD IT 
BR i$ ;;YES, RESUME 
000021 3%: CMP 4(SP), #21 ;;1S IT A RANDOM CONTROL-Q? ;R-C 
BEQ ; ;BRANCH BACK IF SO ;R-C 
000140 CMP 4(SP), #140 ;31S IT UPPER CASE? 
BLT ;;BRANCH IF YES 
000175 CMP 4(SP), #175 3318S IT A SPECIAL CHAR? 
BGT 4 ; ;BRANCH IF YES 
000004 BIC #40 ,4( SP) ;;MAKE IT UPPER CASE 
4$: RTI ;;G0 BACK TO USER 
Siti itiiitiiiiiiiiiiitiitifiiiititiiiititiiit ti iit iti tT it tTii tit titi tii ii ltitit ty 
mee ROUTINE WILL INPUT A STRING FROM THE TTY 
:e : 
;* ROLIN ;:; INPUT A STRING FROM THE TTY 
;* RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;* ;; TERMINATOR WILL BE A BYTE OF ALL O'S 
$RDLIN: MOV R3,-(SP) ;;SAVE R3 
CLR -( SP) ;;CLEAR THE RUBOUT KEY 
i$: MOV @$TTYIN,R3 38 ADDRESS 
2s: CMP #$TTYINe20.,R3 ;;BUFFER FULL? 
BLOS &$ ;;BR IF YES 
ROC ;;G0 READ ONE CHARACTER FROM THE TTY 
MOVB (SP)-,(R3) ;;GET CHARACTER 
CMPB #3,(R3) 3315S IT A CONTROL-C? 
BNE $ 33 H IF 
TYPE $CNTLC ;; TYPE A CONTROL-C (tC) 
TYPEIT ,$CNTLC 
TST (SP )+ ;;CLEAN RUBOUT KEY OFF OF THE STACK 
MOV (SP)+,R3 ;;RESTORE R3 
125154 BIT #BIT8,3SWR ;3;1S THERE A HALT FLAG SET IN THE SWR? 
BEQ 11$ ; ;BRANCH IF NOT TO HALT ROUTINE 
CLR STOPOK ;;GET READY TO HALT PROGRAM 
JMP EXIT ;;GO HALT PROGRAM 
il$: JMP QUIT ;;GOTO CONTROL-C HALT 
3$: CMPB #177,CR3) ::1S IT A RUBOUT 





- eee ee 


—_-_—— _— —_— re ee ee - - * - = -_ - -——_— —- 


BiS 
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SEQ 0390 


CBI BU ktmenOg” 


13873 055504 001022 BNE 5$ ;;BR IF NO 
138674 055 005716 TST (SP) i315 THIS THE FIRST RUBOUT? 
13875 055510 001007 BNE 4$ ;BR IF 
13876 055512 112737 000134 055710 MOVB #'\,10$ TYPE A BACK SLASH 
1 7 055 TYPE 10$ : 
055 104401 055710 TYPEIT ,19$ 
.DSABL CRF 
13878 055524 012716 177777 MOV #-1,(SP) ;;SET THE RUBOUT KEY 
13880 055532 020327 055712 CMP R3,@$TTYIN ;;STACK EMPTY? 
13881 055536 103434 BLO 8$ 33 F YES 
055 111337 055710 (R3),10$ ;;SETUP TO TYPEOUT THE DELETED CHAR. 
13883 055544 TYPE 10$ ;;G0 TYPE 
055 104401 055710 yn aa 
13884 055550 000725 BR 2$ ;:;GO READ ANOTHER CHAR. 
13685 055552 005716 S$: TST (SP) ;;RUBOUT KEY SET? 
1 055554 001406 BEQ $ ;:;BR IF NO 
13887 055556 112737 000134 055710 MOVB #'\,10$ : S TYPE A BACK SLASH 
13 055564 TYPE 0$ 
055 104401 055710 TYPEIT ,10$ 
-DSABL CRF 
13889 055570 005016 CLR SP ) ;;CLEAR THE RUBOUT KEY 
13890 055572 122713 000025 6$: CMPB #25,(R3) ;:1S CHARACTER A CTRL U? 
13891 055576 001003 BNE $ 33 F NO 
13892 055600 TYPE $CNTLU ;:;TYPE A CONTROL “U" 
104401 055743 pin? » §$CNTLU 
13893 055604 000705 BR ;;GO START OVER 
13894 055606 122713 000022 7$: CMPB #22,(R3) 3:1S CHARACTER A "tR"? 
13895 055612 001011 BNE $ ;;BRANCH IF NO 
13896 055614 105013 CLRB C(R3) ;;CLEAR THE CHARACTER 
13897 055616 TYPE $CRLF ;3;TYPE A "CR" & "LF" 
055616 104401 002660 ys? y 2 ed 
13898 055622 TYPE $TTYIN ;;TYPE THE INPUT STRING 
055622 104401 055712 yoy PF ala 
13899 055626 000676 R 2$ ;;G0 ee ANOTHER CHACTER 
13900 055630 8$: TYPE $QUES ;;TYPE A '?! 
055630 104401 002657 TYPEIT ,$QUES 
DSABL CRF 
13901 055634 000671 1$ ;:;CLEAR THE BUFFER AND LOOP 
13 055636 111337 055710 9$: VB (R3),10$ ;;ECHO THE CHARACTER 
13 055642 TYPE $ 
055642 104401 055710 TYPEIT ,10$ 
-DSABL CRF 
05 122723 000015 CMPB #15,(R3)- ; ; CHECK FOR RETURN 
13905 055652 1264 BNE sel IF NOT RETURN 
] 055654 105063 177777 CLRB -1(R3) ;;CLEAR RETURN (THE 15) 
13907 055660 TYPE $LF ;;TYPE A LINE FEED 
05 104401 002661 pes seer 
13908 055664 005726 TST SP )+ ;;CLEAN RUBOUT KEY FROM THE STACK 
13 05 012603 MOV (SP)+,R3 ; RESTORE R3 
13910 055670 011646 MOV (SP),-(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
13911 055672 016666 000004 000002 MOV 4(SP), 2(SP) $3 FIRST ASCII CHARACTER ON IT 





~—_—-— —_—-— _—-. —_—_— ee ee eee 
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CONTROL S & CONTROL SEQ 0391 | 


13912 055700 012766 055712 000004 MOV #$TTYIN,4(SP) 
13913 055706 000002 RTI ; sRETURN 
13914 055710 000 10$: -BYTE 0 ;;STORAGE FOR ASCII CHAR. TO TYPE 
13915 055711 000 -BYTE 0 ; ; TERMINATOR 
13916 055712 000024 $TTYIN: .REPT 20. ;;RESERVE SIZE BYTES FOR TTY INPUT 
13919 055736 136 103 015 $CNTLC: .ASCIZ /tC/<15><12> ;;CONTROL “C” 
055741 012 000 
13920 yo Lips te: p+ 4 015 $CNTLU: .ASCIZ /tU/<15><12> ;;CONTROL "U" 
13921 per dee' ars + 015 ‘$CNTLG: .ASCIZ /tG/<15><12> ;;CONTROL "G" 
13922 055755 015 012 123. $MSWR: .ASCIZ <15><12>/SWR = / 
055760 127 122 040 
055763 075 040 000 
13923 055766 040 040 116 $MNEW: .ASCIZ / NEW = / 
055771 105 127 040 


055774 075 040 000 
13924 .EVEN 


' 


CVMJAAO MSV11-J MEMORY DIAG. 
ROUTINE READ AN OCTAL NUMBER FROM THE TTY 


13969 056126 
13970 056130 
056130 


13971 056134 
056134 


010237 
012602 


0000 
005726 
105010 


104401 
000000 
104401 


104401 


000004 000002 


056126 


000060 
000067 


177770 


000012 
056146 


5$: 
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.SBTTL ROUTINE READ AN OCTAL NUMBER FROM THE TTY 


Teeter reer iiit tii iit titi ttt 
;*#THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AND 

IT TO BINARY. 

;*THE INPUT CHAR 
;#OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A 
;*FOLLOWED BY A CARRIAGE RETURN-LINE 


;#C 


ACTERS WILL BE CHECKED TO poy THEY ARE LEGAL 


“?" WILL BE TYPED 
E NUMBER MUST 


FEED. THE COMPLETE 
; * THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


a ;#CALL: 


1$: RDLIN 


2s: MOVB 


3$: TST 


4$: TST 


TYPEIT 


RDOCT 
RETURN HERE 


#tC7,(SP) 
lias 


(SP )+ 

R1,12(SP) 
R2, $HIOCT 
R2,R1,RO 





;;READ AN OCTAL so 

;;LOW ORDER BITS ARE ON TOP OF THE STACK 
;HIGH ORDER BITS ARE IN $HIOCT 

; PROVIDE SPACE FOR THE 

;; INPUT NUMBER 


;;READ AN ASCIZ LINE 

;;GET ADDRESS OF 1ST CHARACTER 
;;AND SAVE IT 

;;CLEAR DATA WORD 


: PICKUP THIS CHARACTER 
;IF ZERO GET OUT 

; MAKE SURE THIS CHARACTER 

3;IS AN OCTAL DIGIT 


;;*8 


;;STRIP THE ASCII JUNK 
;;ADD IN THIS DIGIT 


; ;LOOP 
;;CLEAN TERMINATOR FROM STACK 
;;SAVE THE RESULT 


SP )+,R2 
MOV (SP)+,R1 
SP)+,RO 
; ;RETURN 
;;CLEAN PARTIAL FROM STACK 


;;SET A TERMINATOR 
;; TYPE UP THRU THE BAD CHAR. 


; INPUT MUST BE A 


3N OCTAL 


SEQ 0392 


LL LL -_- 
— ——_ TE TT TT LL LL TT 


_—-— ee ee ewe ~« . - — =~ = 


Rio 
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ROUTINE READ AN OCTAL NUMBER FROM THE TTY SEQ 0393 


.DSABL CRF 
13972 056140 TYPE MSGO064 ; NUMBER 
056140 104401 070027 TYPEIT ,MSGO64 
-DSABL CRF 
13973 056144 000724 BR 1$ aoa AGAIN 
13974 056146 000000 $HIOCT: .WORD 90 HIGH ORDER BITS GO HERE 
teers .SBTTL ROUTINE READ A DECIMAL NUMBER FROM THE TTY 
13977 5 ESSE SSESESSSEESESESSSAESESESESS REESE EASES SSSR ERSERERAERSERERRERECES ERE EEE 
13978 ;*#THIS ROUTINE WILL READ A DECIMAL CASCII) NUMBER FROM THE TTY 
13979 ; CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
13980 ;*ARE READ A “?” FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
139861 ; * THE ohne a NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
13982 ;#USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
13983 ; *POSITIVE 32767 TO NEGATIVE 32768. 
13984 ; *CALL: 
13985 ;* RDDEC ;;READ A DECIMAL NUMBER 
13aee ;* RETURN HERE ; ;NUMBER IS ON TOP OF THE STACK 
13988 
13989 056150 011646 $RDDEC: MOV (SP),-(CSP) ;;PROVIDE SPACE FOR 
13990 056152 016666 000004 000002 MOV 4(SP),2CSP) ;; THE INPUT NUMBER 
13991 056160 PUSH RO,R1,R2 
056160 01004 MOV RO,-CSP) 
056162 010146 MOV R1,-CSP) 
056164 010246 MOV R2,-CSP) 
13992 056166 104412 1$: RDLIN ;;READ AN ASCIZ 3 
13993 056170 012600 MOV (SP)+,RO ;;ADDRESS OF iST CHA 
13994 056172 010037 056316 MOV RO,6$ ; SAVE TY OF BAD INPUT 
13995 056176 005046 CLR -( SP) ;;CLEAR DATA WORD 
0 5002 CLR R2 ;;SIGN SET POSITIVE 
13997 056202 122710 000055 CMPB #'-, CRO) ;;SEE IF A MINUS SIGN WAS TYPED 
13998 056206 001001 BNE 2$ ;;B8R IF NO MINUS SIGN 
13999 056210 112002 MOVB CRO)+,R2 ;;SAVE FOR LATER USE 
14 05621 112001 2$: MOVB CRO)+,R1 ; sPICKUP THIS CHARACTER 
14001 056214 1424 BEQ 3$ ;;GET OUT IF ZERO 
14002 056216 122701 000060 CMPB #'O,R1 ;;MAKE SURE THIS CHARACTER 
14003 056222 003032 BGT 5$ ;;1S A DIGIT BETWEEN 0 € 9 
14004 056224 122701 000071 CMPB #'°9,R1 
14005 056230 002427 BLT 5$ 
14006 056232 032716 170000 BIT #tC7777,CSP) ;;D0N'T LET NUMBER GET TO BIG 
14007 056236 001024 BNE S$ ;;BR IF NUMBER WOULD OVERFLOW 
14008 056240 316 ASL (SP) #2 
14009 056242 011646 MOV (SP),-(CSP) ;;S5AVE FOR LATER 
14010 056244 316 ASL (SP) 33% 
14011 056246 316 ASL (SP) 33*8. 
14012 056250 062616 ADD (SP)+,(SP) 33#10. 
4013 056252 102416 BVS 5$ ; ;OVERFLOW ISN'T ALLOWED 
14014 056254 162701 000060 SUB #'O,R1 ;;STRIP AWAY THE ASCII JUNK 
14015 056260 060116 ADD R1i,(SP) ;;ADD IN THIS DIGIT 
14016 056262 192412 BVS 5$ : OVERFLOW ISN'T ALLOWED 
14017 056264 0007 BR 2$ 3L 
14018 0 005702 3$: TST R2 : CHECK IF NUMBER IS NEG 
14019 056270 001401 BEQ 4$ IF NO 
14 0 005416 NEG (SP) : YES- -NEGATE THE NUMBER 
14021 056274 012666 000012 4$: MOV (SP)+,12(SP) ;;SAVE THE RESULT 
14022 056300 POP R2,R1,RO 





om meee ee 


F1i5 


CVMJAAO MSV11-J MEMORY DIAG MACRO VUS.Olb Friday 15-Feb-85 16:10 Page 443-2 


ROUTINE READ A DECIMAL NUMBER FROM THE TTY SEQ 0394 
300 012602 ~~ MOV (SP)+,R 
056302 012601 MOV (3p). °Ri 
056304 012600 MOV (SP)+.RO 
14023 056306 000002 RTI ; RETURN 
14025 056310 005726 S$: TST (SP)+ ;;CLEAN PARTIAL NUMBER FROM STACK 
14026 056312 105010 CLRB = (RO) ;;SET A TERMINATOR 
14027 056314 TYPE ;;TYPE THE INPUT UP TO BAD CHAR. 
056314 104401 TYPEIT 


14029 056320 TYPE MSGO062 ; INPUT MUSST BE A 
056320 104401 067776 TYPEIT ace! 


14030 056324 TYPE MSGO65 ; DECIMAL 
056324 104401 070037 TYPEIT MSG065 


14031 056330 TYPE MSG064 ; NUMBER 
056330 104401 070027 TYPEIT ,MSGO64 


| 

.DSABL CRF 

14028 056316 000000 6$: -WORD 0 ;;POINTER GOES HERE 
14032 056334 000714 BR 1$ ;;TRY AGAIN 
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ROUTINE SAVE AND RESTORE RO-RS SEQ 0295 
pre o -SBTTL ROUTINE SAVE AND RESTORE RO-RS 
44036 ST ttt ttt ttt ttt ttt titi ttt ttt ttt ttt ttt ttt TTT TTT TIT TTT TTT TTT TTT TTT LTT iTiTiiit 
14037 ;*#SAVE RO-RS | 
14038 ;*CALL: 
14039 :* SAVREG 
vabat ;#UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
;* 
14042 ;*TOP---( +16) 
14043 ;* #2---(+18) 
14044 ;* «4---R5 
14045 ;* +6---R4 
14046 3% +8---R3 
14047 3;*+10---R2 
14048 ;*+12---R1 
14049 ;*+14---RO 
14050 
14051 056336 $SAVREG: 
14052 056336 PUSH RO,R1,R2,R3,R4,R5 
056 010146 MOV R1,-(CSP) 
056342 010246 MOV R2,-CSP) 
0 010346 MOV R3,-CSP) 
056 10446 MOV R4,-C(SP) 
056350 010546 MOV R5,-(CSP) 
14053 056352 016646 000022 MOV 22(SP),-CSP) ;;SAVE PS OF MAIN FLOW 
4054 056 16646 22 MOV 22(SP),-CSP) ;;SAVE PC OF MAIN FLOW 
14055 056362 6646 000022 MOV 22(SP),-CSP) ;;SAVE PS OF CALL 
0 56 016646 000022 MOV 22(SP),-CSP) ;;SAVE PC OF CALL 
14057 056372 RTI 
14058 
14059 ;*RESTORE RO-R5S 
14060 ;*CALL: 
4061 i RESREG 
14062 056374 $RESREG: 
14063 056374 012666 000022 (SP)+,22¢(SP) ;;RESTORE PC OF CALL 
14064 056400 012666 000022 MOV (SP)+,22(SP) ; RESTORE PS OF CALL 
14065 056404 012666 000022 MOV (SP)+,22(SP) ; ;RESTORE PC OF MAIN FLOW 
14066 056410 012666 000022 MOV (SP)+,22(SP) ; ;sRESTORE PS OF MAIN FLOW 
14067 056414 POP R5,R4,R3,R2,R1,R0 
056414 012605 MOV (SP)+,R5 
012604 MOV (SP)+,R4 
056420 012603 MOV (SP)+,R3 
056422 012602 MOV (SP)+,R2 
056424 012601 MOV (SP)+,R1 
012600 MOV (SP)+,RO 


056426 
14068 056430 000002 RTI 


———_— —— 
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‘ROUTINE RANDOM NUMBER GENERATOR SEQ 0396 

14070 .SBTTL ROUTINE RANDOM NUMBER GENERATOR 

14072 5 EEE ESSE ESSE ESESSSESESS SESS ESSE SS CESSES SESS SSSA SERESESHSERERSSE SESE SESE SESS 

14073 ;*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 

14074 ;#WITH A RANGE OF O TO 2««(+33)-1. 

14075 ;*CALL: 

14076 ;* CALL $RAND ;;CALL THE ROUTINE 

14077 ;* RETURN ;;RETURN HERE THE RANDOM 

14078 5 * ;;NUMBER WILL BE IN 

14073 ;* ; ; $HINUM, $LONUM 

14081 056432 - $RAND: PUSH RO,R1,R2 ee 

00 16 V »* ) 

056434 010146 MOV R1,-(SP) 
056436 010246 MOV R2,-(SP) 

14082 056440 013700 002604 MOV SEEDLO,RO ;SET RO WITH LOW 

14083 056444 013701 002602 MOV SEEDHI ,R1 ;SET R1 WITH HIGH 

14084 056450 012702 000007 MOV #7,R2 -SET SHIFT C 

14085 056454 006300 1$: ASL RO ;;SHIFT RO LEFT AND 

14086 056456 006101 ROL Ri ;;ROTATE CARRY INTO R1 AND 

14087 056460 077203 SOB R2,1$ 

14088 056462 002604 ADD SEEDLO,RO ;ADD NUMBER TO MAKE X 129 

14089 056466 005501 ADC Ri ; ;PROPOGATE CARRY 

14090 056470 063701 002602 ADD SEEDHI,R1 ;ADD NUMBER TO MAKE X 129 

14091 056474 062700 001057 ADD #1057,R0 ;;ADD LOW CONSTANT 

4092 056 005501 ADC Ri ;;PROPOGATE CARRY 

14093 056502 062701 047401 ADD #47401,R1 ;;ADD HIGH CONSTANT 

14094 056506 010037 002604 MOV RO, SEEDLO ;SAVE RO 

14095 056512 010137 002602 MOV Ri, SEEDHI sSAVE R1 

14096 056516 POP R2,R1,RO 
056516 012602 MOV (SP)+,R2 
056520 012601 MOV (SP)+,R1 
056522 012600 MOV (SP)+,RO 

14097 056524 000207 RETURN 
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TINE DOUBLE LENGTH BINARY TO OCTAL ASCII C SEQ 0397 ! 


4100 .SBTTL ROUTINE DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT 
14101 5 CESSES EESESESSESEEESSSSESSESESESESESESSERASSASRASRAEEEREEREE THERE REE E REO EEE EES 
14102 ;*#THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
14103 ;*UNSIGNED OCTAL ASCIZ NUMBER. 

14104 ;#CALL 

14105 ;* MOV #PNTR, -CSP) ;:;POINTER 70 LOW WORD OF BINARY NUMBER 

14106 ;* CALL $DB20 +2 THE ROUTI 

teihe ;* RETURN ;THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 

4109 

14110 056526 104415 $DB20: SAVREG : s SAVE ALL REGISTERS 
056530 016601 000002 V 2(SP),R1 PICKUP THE POINTER TO LOW WORD 
14112 056534 012705 056645 MOV #$OCTVL+13.,R5 : sPOINTER TO DATA TABLE 
056540 012704 000014 MOV #12. ,R4 ;D0 ELEVEN CHARACTERS 
056544 012703 177770 MOV #tC7,R3 : MASK 
14115 056550 012100 MOV (R1)+,RO ;;LOWER WORD 
14116 056552 012101 MOV CR1i)+,R1 ; ;HIGH ae 
14117 0565 005002 CLR R2 ;; TERMINA 
14118 056556 110245 1$: MOVB R2,-(R5) ;;PUT CHARACTER IN DATA TABLE 
119 056 010002 MOV RO,R2 ;;GET THIS DIGIT 
14120 056562 005304 DEC R4 i T THIS CHARACTER 
056 003007 BGT 3$ IF NOT THE LAST a 
0 001405 BEQ 2$ BR IF IT IS THE LAST D 
14123 056570 005205 INC RS ;;ALL DIGITS DONE-ADJUST BOINTER FOR FIRST 
14124 056572 010 000002 MOV RS,2(SP) ;;ASCIZ CHAR. & PUT IT ON THE 
14125 056576 104416 RESREG ;;RESTORE ALL ~ tie 
14126 056600 000207 RETURN ;;RETURN TO U 
14127 056602 006203 2$ ASR R3 ; ;POSITION THE MASK FOR THE LAST DIGIT 
14128 056604 006001 3$; ROR Ri eee THE BINARY NUMBER FOR 
14129 056606 006000 ROR RO 33 THE NEXT OCTAL DIGIT 
14130 056610 006001 ROR Ri 
14131 056612 006 ROR RO 
14132 056614 006001 ROR R1 
14133 056616 000 ROR 0 
14134 056620 040302 BIC R3,R2 ;;MASK OUT ALL JUNK 
14135 056622 062702 000060 #'O,R2 ;;MAKE THIS CHAR. ASCII 
14136 056626 000753 BR i$ ;;GO PUT IT IN THE DATA TABLE 
14137 056630 000016 $OCTVL: .REPT 14. ;;RESERVE DATA TABLE 
14140 056634 $OCT8=$OCTVL +4 ;POINTER TO 11 DIGIT NUMBER 
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CVMJAAO MSV11-J MEMORY DIAG. 
TABLES SEQ 0398 
14142 .SBTTL TABLES 
14143 
41 .SBTTL APT MAILBOX-ETABLE 
14145 056646 $MAZL: 
056646 000000 $MSGTY: .WORD 0 ; sMESSAGE TYPE CODE 
14147 056650 000000 $FATAL: .WORD 0 ;FATAL ERROR NUMBER | (ERROR PC) 
14148 056652 000000 $TESTN: .WORD 0 ;:TEST PATTERN NUMBER 
14149 056654 000000 $PASS: .WORD 0 $3 c 
14150 056656 000000 $DEVCT: .WORD 0 ; ;DEVICE COUNT 
14151 056660 000000 $UNIT: .WORD 0 ;;1/0 UNIT NUMBER 
14152 056662 000000 $ : .WORD 0 ; ;MESSAGE ADDRESS 
056664 000000 SGLG: .WORD 0 ; ;MESSAGE LENGTH 

14154 056666 $ETABLE: ;;APT ENVIRONMENT TAB 
14155 056666 000 $ENV:  .BYTE 0 ; ENVIRONMENT BYTE ;SET TO A 1 FOR APT AUTO MODE 
4156 ;NOTE: if BIT #7 IS SET IN $ENVM THE TABLE BELOW (BEGINNING A $MAMS1 AND 
14157 ; ENDING AT $MADR4) MUST BE FILLED IN TO INDICATE THE PROPER AMOUNT OF 
1415 ; EACH TYPE OF MEMORY. 
14159 056667 000 $€ .BYTE sENVIRONMENT MODE 
14160 sBIT7(200)*USE_APT SIZE INFO ;B1T5(40)=NO CONSOLE 
14161 056670 000101 $SWREG: .WORD 101 APT SWITCH REGISTER 
14162 056672 000000 $USWR: .WORD 0 USED 19 LIMIT THE NUMBER OF PASSES 
14163 056674 000000 $CPUOP: .WORD 0 ;CPU TYPE,OPTIONS 
14164 ;* BITS 15-11=CPU TYPE 
14165 ;* 11/04=01,11/05=02,11/20=03, 11/40=04,11/45=05 
14166 ;* 11/70=06 ,PDQ=07 , Q=10 
14167 5 BIT 10=REAL TIME CLOCK 
14168 ;* BIT 9=FLOATING POINT PROCESSOR 
14169 ;* BIT 8=MEMORY MANAGEMENT 
14170 056676 001 $MAMS1: .BYTE 1 ; sHIGH ADDRESS , M.S. BYTE ;DEFAULT = 64K 
14171 056677 004 $MTYP1: .BYTE 4 ;MEM. TYPE, BLK#1 
14172 ;* MEM. TYPE BYTE -- (HIGH BYTE) 
14173 ;* 900 NSEC CORE=001 
14174 ;* NSEC BIPOLAR=002 
14175 ;* PARITY MOS=003 
14176 ;* ERROR CORRECTING MOS=004 
14177 056700 177776 $MADR1: .WORD 177776 ;;HIGH ADDRESS,BLK 

78 ;* MEM.LAST ADDR. =3 "BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
14179 056702 000 $MAMS2: .BYTE 0 ; HIGH ADDRESS,M.S. BYTE 
14180 056703 000 $MTYP2: .BYTE 0 ; ;MEM. TYPE ,BLK#2 
14181 056704 000000 $MADR2: .WORD 0 ;;MEM.LAST ADDRESS, BLK#2 

2 056706 000 $MAMS3: .BYTE 0 ;;HIGH ADDRESS ,M.S.BYTE 
14183 056707 $MTYP3: .BYTE 0 ; ;MEM. TYPE, BLK#3 
14184 056710 000000 $MADR3: .WORD 0 ;;MEM.LAST ADDRESS, BLK#3 
14185 056712 $MAMS4: .BYTE 0 ;;HIGH ADDRESS,M.S.BYTE 
14186 056713 000 $MTYP4: .BYTE 0 ; ;MEM. TYPE ,BLK#4 
14187 056714 000000 $MADR4: .WORD 0 ;;MEM.LAST ADDRESS,BLKG4 
14188 056716 000000 $VECT1: .WORD 0 ; INTERRUPT VECTOR#1,8US PRIORITY#1 
14189 056720 000000 $VECT2: .WORD 0 ; INTERRUPT VECTOR#2BUS PRIORITY#2 
14190 056722 000000 $BASE: .WORD 0 ;:;BASE ADDRESS OF EQUIPMENT UNDER TEST 
14191 056724 $DEVM: .WORD 0 ; ;DEVICE MAP 
14193 056726 000000 $CDW1: .WORD 0 
14194 056730 000000 $CDW2: .WORD 0 
14195 056732 000000 $DDW7: .WCRD 0 ;UFD MODE FLAG 1=UFD MODE 
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APT MAILBOX-ETABLE SEQ 0399 
14197 ; THE FOLLOWING LOCATIONS SPECIFY WHICH PATTERNS 
14138 s ARE TO BE RUN FOR PARTICULAR MEMORIES 
14200 ; REFERENCE THE TABLE LISTED BELOW TO RELATE BITS TO PATTERNS. 
14201 ;BITO SET WILL RUN THE FIRST ENTRY IN THE TABLE, B SET 
1a5o8 ;IN THE SECOND WORD WILL RUN THE 17TH ENTRY IN THE TABLE . 
14204 ;NOTE** NULL TESTS DO NOT TAKE ANY TIME 
14205 ; ;sFIELD SERVICE VALUE 
14206 056734 177777 $0DWO: .WORD 177777 ;ECC CSR TESTS 177777 TABLE = MKCSRT: 
14207 0567 177777 $DDWi: .WORD 177777 ;ECC CSR TESTS 177777 TABLE = MKCSRT: 
14208 0567 177777 $DDW2: .WORD 177777 ;ECC PATTERNS 103777 TABLE = MKPAT 
14209 056742 177777 $0DW3: .WORD 177777 ;ECC PATTERNS 177777 TABLE = MKPAT 
14210 0567 177777 $00W4: .WORD 177777 ;PARITY PATTERNS 003777 TABLE = MJPAT: 
14211 056746 177777 $0 “WORD 177777 ;PARITY PATTERNS 177774 TABLE = MJPAT: 
14215 056750 $ETEND: 
14216 ;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
taste ;INTERFACE SPEC. 
4219 056750 $APTHD: 
14220 056750 0 $HIBTS: .WORD 0 ++ TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
14221 056752 056646 $MBADR: .WORD $MAIL ADDRESS OF AFT MAILBOX (BITS 0-15) 
14222 056754 043 $TSTM: .WORD 35. ; RUN TIM OF LONGEST TES 
14223 056756 001274 $PASTM: .WORD 700. : #RUN TIME IN SECS. OF 1ST PASS ON 128K (QUICK VERIFY) 
14224 056760 000000 $UNITM: .WORD 0. ;EXTRA RUN TIME OF A PASS FOR EACH ADDITIONAL 128K (QV) 
14225 056762 000041 .WORD $ETEND-$MAIL/2 ; ;LENGTH MAILBOX-ETABLEC WORDS ) 
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ROUTINE TRAP DECODER 


14246 057006 

14247 057010 

14248 057016 

14249 

14250 057020 
057020 


14251 057024 
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-SBTTL ROUTINE TRAP DECODER 


§FSSSSESSESSSSESSSSESSSSSSSSSSSSSESSSSSSESSESSSSSSSSESESSESSSE SSS SEH SeSSSESSSS SESE SESE EESESESe 


;*#THIS te WILL PICKUP THE LOWER BYTE OF THE “TRAP” 'NSTRUCTI 


; #60 TO THAT ROUTINE. 


$TRAP: MOV 
MOV 
TST 


MOVB 
ASL 


MOV 
RTS 


RO, St ;;SAVE RO 
2(SP),R ;;GET TRAP ADDRESS 

RO) : 3BACKUP BY 2 
(RO), RO ;;GET RIGHT BYTE OF TRAP 
RO ;;POSITION FOR INDEXING 
$TRPADCRO),RO : FINDEX TO TABLE 
RO ;;GO TO ROUTINE 


;;THIS IS USE TO HANDLE THE "GETPRI" MACRO 


$TRAP2: MOV 
MOV 


RTI 


$NOTRAP: TYPE 
TYPEIT 


. DSABL 
$HALT2: HALT 


(SP), 


-(SP) ;;MOVE THE PC DOWN 
4(SP), 2(SP) 


;;MOVE THE PSW DOWN 
; ;sRESTORE THE FSW 


MSGO06 ; UNDEFINED TRAP INSTRUCTION 
aeons 


———— a ee 


SEQ 0400 


— ——— 
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CVMJAAO MSV11-J MEMORY DIAG. 

TRAP TABLE SEQ 0401 
ieee .SBTTL TRAP TABLE 
14256 ;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED : 
14257 *BY THE “TRAP” INSTRUCTION. 
14258 
py Fes ; ROUTINE 
14261 057026 057006 $TRPAD: .WORD $TRAP2 | 

0570 047122 $TYPE ;CALL=TYPEIT TRAP+1(104401) TTY TYPEQUT ROUTINE 
14263 057032 054102 $TYPOC ;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING Sh le 
0570 054056 $TYPOS ;CALL=TYPOS TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZERO 

14265 057036 057020 $NOTRAP;$TYPON ;CALL=TYPON TRAP +4( 104404) TYPE OCTAL wit CAS PER Past CALL ) 
14266 057040 054304 $TYPDS ;CALL=TYPDS TRAP+5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 
peo 057042 057020 $NOTRAP; $TYPBN ;CALL=TYPBN TRAP+6( 104406) TYPE BINARY CASCII) NUMBER 

14269 057044 054704 $GTSWR ;CALL=GTSWR TRAP+7( 104407) GET SOFT-SWR SETTING | 
14370 057046 054530 $CKSWR ;CALL=CKSWR TRAP +10( 104410) TEST FOR CHANGE IN SOFT-SWR 
14272 057050 055264 $RDCHR ;CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
14273 057052 055414 $RDLIN ;CALL=RDLIN TRAP+12(104412) TTY TYPEIN — ROUTINE 
14274 057054 056000 $RDOCT ;CALL=RDOCT TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 
Asie 057056 056150 $RDDEC ; CALL=RDDEC TRAP+14( 1044145 READ A DECIMAL NUMBER FROM TTY 
14277 057060 056336 $SAVREG ;CALL=SAVREG TRAP +15( 104415) SAVE RO-R5 ROUTINE 
1ASa6 057062 056374 $RESREG ;CALL=RESREG TRAP+16(104406) RESTORE RO-RS ROUTINE 
14280 057064 034202 $KERNEL ;CALL=KERNEL TRAP+17( 104417) ENTER KERNEL MODE 
14261 057066 034212 $ENERGIZE ; CALL =ENERGIZETRAP+20( 104420) TURN ON MEMORY MANAGEMENT € TRAPS 
PES 057070 034222 $DEENERGI ; CALL =DEENERGITRAP+21( 104421) TURN OFF MEMORY MENAGEMENT €& TRAPS 
1aSes 057072 036310 $KMAP ; CALL =KMAP TRAP +22( 104422) MAP KERNEL 1 TO 1 
14286 057074 034232 $CACHN ;CALL=CACHON TRAP +23( 104423) TURN CACHE ON 
ee H 057076 034256 $CACHF ;CALL=CACHOFF =TRAP+24( 104424) TURN CACHE OFF 
14289 057100 034274 $LOADC ;CALL=LOADCSR TRAP+25(104425) LOAD CORRECT CSR 
1aSei 057102 034370 $READC ;CALL=READCSR TRAP+26(104426) READ CORRECT CSR 
14292 057104 047456 $PERO1 ;CALL=PERRO1 TRAP+27( 104427) PROGRAM DETECTED ERROR 
14293 057106 047504 $PERO2 ;CALL=PERRO2 TRAP +30( 104430) PROGRAM DETECTED ERROR 
14294 057 047532 $PERO3 ;CALL=PERROS TRAP +31(104431) PROGRAM DETECTED ERROR 
14295 057112 7562 $PERO4 ; L=PERRO4 TRAP +32( 104432) PROGRAM DETECTED ERROR 
14296 057114 047644 $PERO7 ;CALL=PERRO7 TRAP +33( 104433) PROGRAM DETECTED ERROR 
14297 057116 047666 $PER1O ;CALL=PERR10O TRAP +34(1 PROGRAM DETECTED ERROR 
14298 057120 047716 $PER11 ;CALL=PERR11 TRAP+35( 104435) PROGRAM DETECTED ERROR 
14299 OS57122 047736 $PER12 ;CALL=PERR12 TRAP +36( 104436) PROGRAM DETECTED ERROR 
14300 057124 047760 $PERi3 ;CALL=PERR1i3 TRAP +37( 104437) PROGRAM DETECTED ERROR 
14301 057126 05 $PER14 ;CALL=PERR14 TRAP +40( 104440) PROGRAM DETECTED ERROR 
14302 057130 050022 $PER15 ; CALL=PERR1S TRAP +41(104441) PROGRAM DETECTED ERROR 
14303 057132 050044 $PERiI6 ;CALL=PERR16 TRAP +42(1 ) PROGRAM DETECTED ERROR 
14304 057134 05 $PER17 ;CALL=PERR17 TRAP +43( 104443) PROGRAM DETECTED ERROR 
14305 057136 050102 $PER20 ;CALL=PERR20 TRAP +44( 104444) PROGRAM DETECTED ERROR 
14306 057140 050120 $PER21 ;CALL=PERR21 TRAP +45( 104445) PROGRAM DETECTED ERROR 
14307 057142 050140 $PER22 ;CALL=PERR22 TRAP +46( 1 PROGRAM DETECTED ERROR 
14308 057144 0501 $PER23 ;CALL=PERR23 TRAP+47( 104447) PROGRAM DETECTED ERROR 
14309 057146 050174 $PER24 ;CALL=PERR24 TRAP +50( 104450) PROGRAM DETECTED ERROR 
14310 057150 044756 $PER25 ;CALL=PERR25 TRAP +51(104451) PROGRAM DETECTED ERROR 


| CVMJAAO MSV11-J MEMORY DIAG. 
' TRAP TABLE 


14311 057152 
1 54 


14352 057272 
14355 


- —_ ee ld ea cy a tae 


050364 
050404 


057020 
177776 


em ee me ——_—— © al -—— — - 
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ST 


sCALL =PERR2G6 


; 1 
$NOTRAP ;CALL=PERR42 
$NOTRAP ;CALL=PERR43 


$ECCOIS ;CALL=ECCDIS 
$ECC1DIS;CALL=ECCiDIS 
$ECCINIT ; CALL=ECCINIT 
$ECCLINIT ;CALL=ECCLINIT 
CBCSR SR 


WASOBE ; ASDBE 
$WAS1DBE ; CALL =WAS1DBE 
$CLRCSR ;CALL=CLRCSR 
$CLRICSR;CALL=CLRICSR 
$CHKDIS ;CALL=CHKDIS 
$CHK1DIS;CALL=CHKiDIS 

=ENASBE 


$NOTRAP 
: 177776 


SEQ 0402 | 


TRAP +52( 104452) PROGRAM DETECTED ERROR 
IRAP .3at 10a0aa’ A DETECTED ERROR 


;3;ILC;REV B 
s:ILC;REV B 


AP 104466) AM 
TRAP +67(104467) PROGRAM DETECTED ERROR 


TRAP+70( 104470) DISABLE ECC ON ALL CSR'S 
TRAP+71(104471) DISABLE ECC ON a SELECTED CSR 
TRAP+72(104472) INITIALIZE ALL MK1i1 

' 


T NERATED C IN ALL _CSR'S 
TRAP +75( 104475) WRITE ehh CHECKBITS IN 1 SELECTED CSR 
TRAP +76(104476) WAS THERE A SBE ON ANY C 

TRAP+77(104477) WAS iy. A aoe ON 1 SELECTED CSR? 


LECTED CSR 
DI E ECC € WRITE CKBITS FROM ALL CSR’'S 

tan. tna? teebed eae An €& WRITE fg tt FROM 1 CSR 

TRAP +106( 104506 JENABLE TRAPS ON SBE‘S FROM ALL CSR'S 

TRAP +107( 104507 JENABLE TRAP S ON SBE'S CTED CSR 

TRAP +110(€104510)TEST LOC (Ri) & TST FOR SBE (WITHOUT FETCHES 

TRAP+1110104511 )INVALIDATE BACKGROUND PATTERN ON BANK 

TRAP+112(104512)TEST ERROR ADDRESS 

TRAP +113C104513 ENABLE CHECK BIT REGISTER 

TRAP +114(104514 ENABLE SYNDROME BIT REGISTER 


;STATUS REGISTER 


14371 

14372 057274 

14373 057274 

14374 057276 
14375 057300 

14376 057302 


14 
14378 057304 
143 


380 0 
14361 057312 
14382 
14388 EEL 


1438 

14388 057324 
14389 057326 
14390 057330 
peed 057332 


14400 50 
14401 057352 
14402 

14403 057354 


4407 

14408 057364 
14409 057366 
14410 057370 
14411 057372 


ene MSV11-J MEMORY DIAG. 
TABL ERROR POINTER 


_- - _- —_——— ee ee ee = . - _— 


bi6 
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-SBTTL TABLE ERROR POINTER 
;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
AINED BY USING THE INDEX NUMBER FOUND IN 
S NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS CERRPC). 


;;POINTS TO THE ERROR MESSAGE 
: POINTS TO THE thy HEADER 

; POINTS TO THE DAT 

;* OF ; POINTS TO THE DATA FORMAT 


sERROR 10 
EMS 


Ee ee 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


SEQ 0403 


i 


14414 

14415 057374 
14416 057376 
14417 057400 
14418 057402 
14419 

14420 057404 
14421 057406 
14422 057410 
14423 057412 
4424 


1442 
14425 057414 


14428 057422 
14429 
14430 057424 


14433 057432 
14434 

14435 057434 
14436 057436 


1 

14441 057446 
14442 057450 
14443 057452 


14444 
14445 057454 


14452 057470 
14453 057472 


14454 
14455 057474 


14463 057512 


14464 

14465 057514 
14466 057516 
14467 057520 
14468 057522 


. _— LL LT 


CVMJAAO MSV11-J MEMORY DIAG. 
ABLE ERROR POINTER 


061247 
063741 
060234 


Ci6 
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;ERROR 12 
;ERROR 13 
;ERROR 14 
OERROR 15 
;ERROR 16 
;ERROR 17 
a 20 
sERROR 21 
;ERROR 22 


;ERROR 23 


aan ~—<—— — 


SEQ 0404 | 


-—-——_——-——_|-—  ———9—c- — 


—— — 


14475 057532 
14476 
14477 057534 


14485 057552 
14486 
14487 057554 


14491 
14492 057564 
14493 057566 
14494 057570 
14495 057572 
14496 
14497 057574 
14498 057576 
14499 057600 
14500 057602 
14501 
14502 057604 
14503 057606 
14504 057610 
14505 057612 
506 


14 

14507 057614 
1450 

14510 057622 
14511 

14512 057624 


14515 057632 


A MSV11-J MEMORY DIAG. 
TABLE ERROR POINTER 


D16 
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sERROR 26 
0 

;ERROR 27 
;ERROR 30 
;ERROR 31 
sERROR 32 
;ERROR 33 


DF 
;ERROR 34 


;NO MESSAGE 


;NO MESSAGE 


——— —_ - 


SEQ 0405 


ied 


Sreene MSV11-J MEMORY DIAG. 
TABLE POINTER 


ERROR 


14518 
14519 057634 
14520 057636 
14521 057640 
1Aa58 057642 


14 

14524 057644 
14525 057646 
14526 057650 
14527 057652 
14528 

14529 057654 
14530 057656 
14531 057660 
14532 057662 
14533 


14536 057670 
14837 057672 
14538 
14539 057674 
14540 057676 


14541 057700 
1aaat 057702 


7730 
14387 057732 


1 

14559 057734 
14560 057736 
14561 057740 
14562 057742 
14563 


14566 ) 
14567 057752 


;ERROR 
EMS2 


ee — —_——_——— ee 


E16 
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35 


37 


40 


41 


42 


43 


a 


45 


46 


SEQ 0406 


—-e eee ee 


—— i 


F16 
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TABLE ERROR POINTER SEQ 0407 
14570 ;ERROR 47 
' 14571 057754 062770 
14572 057756 063536 DH2 
14573 057760 060416 DT20 
14574 057762 060557 DF2 
1457 ;ERROR 50 
14576 057764 063243 EMS6 
14577 057766 064770 DH27 
14578 057770 060516 DT27 
14579 057772 060556 DF 1 
14580 ;ERROR 51 
14581 057774 063405 EM61 
14582 057776 064645 DH24 
14583 060000 060456 DT24 
14584 060002 060722 DF 14 
14585 ;ERROR 52 
14586 060004 062227 EM29 
14587 064172 DH13 
14588 060010 060320 D113 
14589 060012 060701 DF 11 
;ERROR 53 
14591 060014 062041 EM25 
14592 060016 065044 DH30 
14593 060020 060536 DT30 
14594 060022 060740 DF 16 
14595 ;ERROR 54 
14596 060024 063275 EM57 
14597 060026 06 DH30 
14598 060030 0605 DT30 
14599 060032 060740 DF 16 
;ERROR 55 
14601 060034 061573 EM20 
14602 060036 DH24 
14603 060040 04 DT24 
14604 060042 060722 DF 14 
14605 ;ERROR 56 
1 060044 061573 EM20 
14607 060046 DH30 
14608 060050 05 DT30 
14609 060052 060740 pt 57 
14611 060054 061521 EM19 
14612 060056 DH24 
14613 060060 0604 D124 
14 060062 060722 DF 14 
15 ;ERROR 60 
14616 060064 061315 EM13 
17 060066 064507 
14618 060070 060434 DT23 
14619 060072 060712 13 
;ERROR 61 
14621 060074 062311 
14622 060076 064507 
14623 060100 060434 DT23 
| 060102 060712 DF 13 
, 14625 ;ERROR 62 
14626 060104 061573 EM20 





CVMJAAO 
TABLE 


MSV11-J MEMORY DIAG. 


616 
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ERROR POINTER 
7 060106 064645 DH24 
14628 060110 060456 D124 
14629 060112 060722 DF 14 
ERROR 63 
14631 060114 061706 EM22 
14632 060116 064645 DH24 
14633 060120 060456 D124 
14634 060122 060722 14 
sERROR 64 
4636 060124 063426 
14637 060126 063615 DHS 
14638 060130 060202 OTS 
14639 060132 060557 DF2 
ERROR 65 
14641 060134 061706 & EM22 
14642 060136 064507 0 
14643 060140 060434 D123 
14644 060142 060712 . OF13 


SEQ 0408 


CVMJAAO MSV11-J MEMORY 
ERROR DATA TAGS (DT) 


00 

14656 060306 
14657 060314 
14658 060320 
060334 

14659 060342 
060350 
060356 

14660 060360 
060366 

14661 060374 
060402 

14662 060410 
14663 069416 
060424 

14664 060426 
14665 060434 
060442 
060450 

14666 060456 
060464 
060472 

14667 060476 
060504 

14668 060510 
14669 060516 
060524 
060532 

14670 060536 
060544 
060552 


DIAG. 


002034 
000000 


000000 
002036 


002034 


177572 
172516 


002422 
002402 


002150 
177572 


—_-— —- — ee eee -_ —— 


H16 
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002044 


002072 
002070 


177574 
177766 


002400 
002034 
002052 
002176 


002204 
002212 
000000 


000000 


002034 
002250 
000000 


177574 
177766 


002176 


002050 
002056 
000000 


000000 
002052 
000000 
002044 
002176 
000000 


002150 
002176 


002150 
000000 
002034 
002176 


002176 
002150 


DTi: 


DT2: 
DT3: 


DT4: 
DTS: 


DT6: 
DT7: 


- SBTTL 
. WORD 


ERROR DATA TAGS (DT) 

ERRPC , ADDRESS ,GOOD,BAD,0 

ERRPC,O 

ERRPC ,PADDRESS , PARCNT ,0 

ERRPC , ADDRESS , NEMCNT , 0 

ERRPC ,MMRO,MMR1,MMR2,MMR3,CPUERR,0O 


ERRPC,APTPAR,LSIZE,APTECC ,MSIZE ,0 
ERRPC , DUMMY , ADDRESS , DUMMY ,GOOD , BAD , BADXOR 


DUMMY , DUMMY , DUMMY , DUMMY , O 
DETRO,DETR1,DETR2,DETRS,DETR4,DETRS,DETSP,DETPSW,0 


—s 
ERRPC , DUMMY , ADDRESS , DUMMY, TSTDAT, TSTDAT+2, CHECK ,CSR,0 


CONTRL , MMRO,MPR1,MMR2,MMR3,CPUERR,O 


ERRPC , DUMMY , DUMMY , GOOD , GO0D2 , GO0D3 
BAD ,BAD2 ,BAD3, DUMMY , DUMMY , 0 


ERRPC , DUMMY ,O 
ERRPC ,GOOD,BAD,0 


ERRPC , DUMMY ,O 

ERRPC , DUMMY ,GOOD ,BAD , DUMMY , DUMMY , DUMMY , DUMMY , 0 
ERRPC , DUMMY , CSR, DUMMY , DUMMY , DUMMY , DUMMY , 0 
ERRPC ,GOOD,CSR,CSRNO,0 

ERRPC,BAD,0 

ERRPC , DUMMY , ADDRESS , DUMMY , DUMMY , DUMMY , DUMMY , 0 


ERRPC , DUMMY , DUMMY ,GOOD,,BAD, CSR, DUMMY , 0 


ee eee 


SEQ 0409 © 


CVMJAAO MSV11-J 
ERROR DATA FORMA 


14673 

14674 060556 

14675 060557 
060562 


060652 
060655 

14680 060657 
060662 

0665 

060670 

14681 060672 
14682 060674 
060677 

14683 060701 
060704 
060707 

14684 060712 
060715 
060720 

14685 060722 
060725 
060730 

14686 060731 
060734 
060737 

14687 060740 
060743 
060746 


MEMORY DIAG. 
TS (OF) 

000 

000 000 
000 000 
000 000 
000 600 
000 000 
000 000 
000 000 
000 005 
010 000 
000 003 
002 004 
000 005 
010 000 
010 003 
002 004 
000 005 
010 011 
011 003 
002 004 
000 005 
010 011 
010 003 
002 004 
000 005 
000 000 
000 000 
002 004 
000 005 
000 001 
001 001 
000 005 
010 000 
000 000 
000 005 
000 003 
002 004 
000 005 
003 006 
004 

000 005 
010 003 
004 

000 005 
000 000 
004 


116 
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DF 1: 
DF 2: 


DF3: 


8 888 888333 


DF4: 


© 
— 
© 


DFS: 


S 358 3 


DF6: 


© 
— 
Lo) 


010 ODF7: 


DF8: 
001 ODF9: 


Te ET 


DF1i: 


DF13: 


OF 14: 


DF1iS: 


DF 16: 


- SBTTL 
-BYTE 
.BYTE 


-BYTE 


-BYTE 


.BYTE 


.BYTE 


.BYTE 


.BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 
.BYTE 


.BYTE 


— DATA FORMATS (DF) 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


—0,5,0,8.,0,0,0,3,6,2,4 


0,5,0,8.,0,8.,8.,3,6,2,4 
0,3.0.8..9..9..9..5:6,2.4 
0,5,0,8.,9.,8.,8.,3,6,2,4 
0,5,8.,0,0,9.,0,0,9.,2,4 


0,5 

0,1,1,1,1 
0,5,0,8.,0,0,0,0,0 
0,5,0,0,3,6,2,4 
0,5,0,35,6,2,4 
0,5,0,8.,3,6,4 


0,5,8. .0,0,3,4 


_——es er 


SEQ 0410 — 


EE 
- a eee 


CVMJAAO MSV11-J MEMORY DIAG. 
ERROR MESSAGES (EM) 


14690 
14696 pop dnd 


14697 


14700 


14701 


J16 


MACRO VOS.01b Friday 15-Feb-85 16:10 Page 469 





-SBTTL ERROR MESSAGES (EM) 


EM2: -ASCIZ /CAN'T SET 22 BIT MODE IN MMR3/ 

EM3: -ASCIZ /PARITY ERROR(S) IN BANK 0/ 

EM4: -ASCIZ /NON-EXISTANT MEMORY CHOLES) IN BANK 0/ 

EMS: -ASCIZ /ILLEGAL OR RESERVED INSTRUCTION (TRAP TO 10)/ 
EM6: .ASCIZ /UNEXPECTED TRAP TO 4/ 

EM?: .ASCIZ /MEMORY MANAGEMENT (TRAP TO 250)/ 


SEQ 0411 


-———- — 2 


i 
i 


CVMJAAO MSV11-J MEMORY DIAG. 
ERROR MESSAGES (EM) 


14702 061247 


66 
14703 061271 


14704 


sasessssssesssseseseees 


eee 


14705 


14706 061413 
06 


061457 
14707 061461 
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EM11: 


EM1le2: 


EM13: 


EM14: 


EM15: 


EM17: 


.ASCIZ 


. ASCIZ 


»ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


K16 


/MEMORY DATA ERROR/ 


/DETAILED ERROR DUMP/ 


/MISSING EXPECTED SBE FLAG/ 


———— ee ee ee iC 


/WRITE BYTE FAILED TO CLEAR SBE FLAG/ 


/FAILED TO GET INTERRUPT WITH DBE FLAG/ 


/MEMORY DATA ERROR IN CHECK BITS/ 


osm 1 Owe, 


ee -_—_ 


- _ — ——— 


- —_—_ — =m 
— &- = <p oo ————”— —- —_—__  ————_ 7 


L16 
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ERROR MESSAGES (EM) 


| 061464 117 122 131 
7 04 


040 1 101 
061472 ‘< 101 040 


061517 123 
14708 061521 123 102 105 €M19: .ASCIZ /SBE-DBE CAUSED PARITY TRAP WHEN INHIBITED/ 
1524 055 104 102 ) 
061527 105 040 103 
061532 101 125 123 
061535 105 104 04 
540 120 101 122 
061543 111 124 131 
6 040 124 122 
061551 101 120 040 
061554 127 110 105 
061557 116 040 111 
061562 116 110 111 
061565 102 111 124 
061570 105 104 000 
14709 061573 123 102 105 EM20: .ASCIZ /SBE-DBE DID NOT CAUSE PARITY TRAP WHEN ENABLED/ 
061576 055 104 102 
061601 105 040 104 
lil 104 


061620 120 101 
061623 122 111 124 
061626 131 124 
061631 122 101 120 
061634 040 127 110 


061650 1 000 
14710 trey 123 102 105 EM2i: .ASCIZ /SBE-DBE ON MASTER TEST WORD/ 
06165 055 102 


06 000 
14711 otto 115 lil gt EM22:  .ASCIZ /MISSING EXPECTED DBE/ 





SEQ 0413 


———— le —— EE 


—— ml mamma A Al a ae ate 


M16 


CVMUAAO MSV11-u MEMORY DIAG. | MACRO VOS.01b Friday 15-Feb-85 16:10 Pace 469-3 
ERROR MESSAGES (EM) —— _ 


«14712 061733 125 116 105 €M23:  .ASCIZ /UNEXPECTED PARITY TRAP/ 
| 061736 120 105 


1 130 
061741 103 124 105 
061744 104 040 120 
061747 101 122 111 
17 124 131 
061755 124 122 101 
061760 120 000 
14713 061762 122 105 103 EM24: .ASCIZ /RECEIVED DBE FLAG WHEN EXPECTING ONLY SBE FLAG/ 
061765 105 111 126 
061770 105 040 
061773 104 102 
061776 1 114 
2001 101 107 
2004 127 110 105 
116 040 105 


062026 131 040 123 
062031 102 105 040 
34 106 114 101 

062037 107 000 

14714 062041 103 110 105 EM25: .ASCIZ /CHECK BIT DATA ERROR/ 

062044 103 113 040 
062047 102 111 124 
062052 0 104 101 

062055 124 101 
060 105 122 122 

3 117 122 


06206 000 
14715 ossoat 101 104 104 EM26:  .ASCIZ /ADDRESS PARITY ERROR DID NOT CAUSE ABORT/ 


062121 124 103 
062124 101 125 123 
062127 105 101 
062152 102 117 122 
062135 124 000 
14716 062137 105 103 103 EM27:  .ASCIZ /ECC INHIBIT MODE POINTER FAILURE - DID NOT PROTECT BANK/ 
062142 040 111 116 
062145 110 lil 102 
50 1il 124 040 
062153 115 117 104 
105 040 
062161 117 lil 116 
i 124 105 122 
062167 040 106 101 





SEQ 0414 


—— a a — = 


- -_——- ——_— ——< -<<_ = 


a  — — mma Al ee tee 


-CVMJAAO MSV11-J MEMORY DIAG. 
| ERROR MESSAGES (EM) 


14717 


14718 


06 
14720 


062203 
206 
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EM29: 


EM30: 


EM32: 


me ee ee ee —-_ = a 7 


SEQ 0415 


.ASCIZ /CORRECTION FAILURE WITH ECC ENABLED ON FORCED SBE/ 


-ASCII /WRITE BYTE WITH ECC ENABLED FAILED TO CLEAR DATA AT/<CRLF> 


-ASCIZ /FORCED SBE LOCATION/ 


.ASCIZ /MOVB #360,(R2)+ WITH ECC ENABLED CHANGED DATA AT FORCED DBE LOCATION/ 


ERROR MESSAGES (EM) 


: 
| 


———— re 


se —_———— ———- « Sl 


CVMJAAO MSV11-J MEMORY DIAG. 


14721 
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EM33: 


EM35: 


— eee ee 


SEQ 0416 


-ASCIZ /MOV #177400,(R1) WITH ECC ENABLED CHANGED DATA AT FORCED DBE LOCATION/ 


-ASCIZ /UNEXPECTED CORRECTION WITH ECC DISABLE ON FORCED SBE/ 


CVMJAAO MSV11-J MEMORY DIAG. 
ERROR MESSAGES (EM) 


| 44723 062721 
724 


' 
; 


~w 
~ 
oe 
o 


06 
14724 062770 
06 


14725 063042 
06 


06 
14726 063076 


14727 063146 


101 


——— — —<— « 
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EM36: 


EM40: 


EMSO: 


EMS1: 


EMS2: 


-ASCIZ /APT SIZE DISAGREES WITH PROGRAM SIZING/ 


.ASCIZ /BRANCH GOBBLE FAILED CONDITION CODES TEST/ 


-ASCIZ /BAD ERROR ADDRESS GENERATED/ 


-ASCIZ /FLAGS NOT SET ON FORCED UNCORRECTED SBE/ 


-ASCIZ /BIT SET ERROR IN CSR/ 


SEQ 0417 


CVMJAAO MSV11-J MEMORY DIAG. 
ERROR MESSAGES (EM) 


| 
| 


3170 
14728 063173 
3176 


i 
| 
' 


06 
14729 063222 
06 


06 
14731 063275 
06 


06 
14732 0633453 
06 


063404 
14733 063405 
06 


—— i —- oe eae 


El 
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000 
124 EMSS: 


114 EMSS: 


104 EMS56: 


117 EMS?7: 


117 EM60: 


122 EM61: 


117 EM62: 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


/BIT CLEAR ERROR IN CSR/ 


/ILLEGAL CSR TYPE/ 


/BAD PARITY TRAP GENERATED/ 


/WRONG CHECK BIT READ BACK FROM MEMORY/ 


/WRONG SYNDROME BITS READ INTO CSR/ 


/CSR UPDATE ERROR/ 


/PROCESSOR NOT SUPPORTED BY THIS DIAGNOSTIC/ 


SEQ 0418 


A LE LLL ALL LE LE 4 


ei A LL —_—_— —-—— Eee a ee ——— oe TE et - -_— — « 


2 


CVMJAAO MSV11-J MEMORY DIAG. | MACRO VO5.01b Friday 15-Feb-85 16:10 Page 469-8 
ERROR MESSAGES (EM) SEQ 0419 


123 117 122 


LLL LLL LLL LLL LLL I 


— EE I em ——_— — 


ee 


CVMJAAO MSV11-J MEMORY DIAG. 
‘ ERROR DATA HEADERS (DH) 


| 44737 
| 14738 063501 
: 063504 


06 
14739 063536 
06 


06 
14740 063561 
063564 


06 
14741 063615 
063620 
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.SBTTL ERROR DATA HEADERS (DH) 
120 DHI1: -ASCIZ / PC DEV ADD GOOD BAD/ 


120 ODHe: -ASCIZ / PC GD-CC BD-CC/ 


120 DHS: .ASCIZ / PC 1ST ADD # OF ERRORS/ 


120 DHS: ASCIZ ¢ PC MMRO MMR1 MMR2 MMRS CPUERR/ 


120 DH6: -ASCIZ / PC APTPAR LSIZE APTECC MSIZE/ 


—_ ee ee ee 


SEQ 0420 


_—_— a — 4 


i TT — 


em] meiamannamana  A  a  e 


H1 
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ERROR DATA HEADERS (DH) 


14743 063741 040 120 DH7: -ASCII / PC BANK VADD PADD GOO0D/ 
063744 103 040 040 
063747 040 102 


063774 040 040 
063777 040 107 
064002 117 117 104 
14744 064005 040 040 040 -ASCIZ / BAD XOR CSR MTYP INT PAT/ 


064016 040 040 
064021 040 130 117 
064024 122 0 040 
064027 103 123 122 
32 040 040 115 
064035 124 131 120 
064040 040 111 116 
064043 124 040 120 
064046 101 124 000 
14745 064051 040 040 122 DH10: .ASCIZ / RO Ri R2 R3 R4 RS 
064054 060 040 040 


064076 040 040 040 

064101 040 040 122 
104 063 040 040 

064107 040 040 040 

064112 040 122 

064115 040 040 


1 120 040 
064137 040 040 040 
064142 040 120 123 
064145 127 000 
14746 064147 040 040 120 DHi1: .ASCIZ / PC CSR/ 
064152 103 040 040 
064155 0 040 040 
60 040 103 123 
064163 122 000 
14747 064165 ia he 123. DH1i2: .ASCIZ / CSR/ 


064170 
14748 peat gl 040 040 as OM1S: .ASCII / PC BANK VADD PADD WROTE1 WROTE2/ 


064200 
064203 101 116 113 
064206 


—— << 


— — 


PSW/ 


SEQ 0421 


———_—_- —_——_— a = aoe al 


—_ ~—— wc la SS TT 


11 


CVMJAAO MSV11-J MEMORY DIAG. MACRO VO5S.0lb Friday 15-Feb-85 16:10 Page 471-2 | 
ERROR DATA HEADERS (0H) SEQ 0422 | 


| 064211 101 104 104 
| 040 040 
064217 040 040 120 


064225 
0642 040 127 122 
064233 117 124 105 
2 061 040 
064241 127 122 117 
064244 124 105 062 
14749 064247 040 103 110 -ASCIZ / CHKBITS CSR/ 
064252 113 102 111 
064255 124 123 040 
040 04 
064263 103 123 122 
064266 000 
14750 064267 103 117 116 DH14: .ASCIZ /CONTRL MMRO MMR1 MMR2 MMR3 CPUERR/ 
064272 124 122 114 
064275 040 040 
064300 115 115 122 
064303 060 040 
306 040 040 115 
064311 115 122 061 
064314 040 040 
064317 040 115 115 
064322 122 062 040 
064325 040 040 040 
064330 115 115 122 
064333 


064 000 
14751 064346 040 040 pa DHiS: .ASCII / PC BANK PADD GD-WD1 GD-WD2 GD-CHK/ 


0643 040 040 102 
064357 101 116 113 
064362 040 040 

064365 040 120 101 


064420 103 110 113 
14752 064423 040 102 101 .ASCIZ / BAD-WD1 BAD-WD2 BAD-CHK INT PAT/ 

064426 104 055 127 

064431 104 061 040 

34 102 101 104 





—— a 


j 
| 
' 


eal Mamma, Ale, Al, ie eae 


CVMJAAO MSV11-J MEMORY DIAG. 
ERROR DATA HEADERS (DH) 


14753 06446 


14754 
14755 


14756 


14757 


14758 


064461 
464 


120 
000 


040 
103 
040 
101 


101 
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124 





DH16: 


DH19: 
DH20: 


DH23: 


DH24: 


DH25: 


-ASCIZ / PC 


-ASCIZ / PC/ 
-ASCIZ / PC 


.ASCIZ / PC 


-ASCIZ / PC 


ASCIZ / PL 


BANK/ 


BANK GD-CSR (CSR) CSR MTYP INT PAT/ 


BANK GD-ERR BAD-ERR CSR MTYP INT PAT/ 


BANK (CSR) CSR MTYP INT PAT/ 


GD-DAT (CSR) 


CSRNO/ 


SEQ 0423 


CVMJAAO MSV11-J <p 


—_—— $_ _ £m <i, ii. ae ae 


ERROR DATA HEADERS ( 


| 
| 064730 


147 
14759 064752 
755 


064763 

766 

14760 064770 
773 


06 
14761 065044 
06 


-—_ 


104 055 
101 124 
040 050 
432 122 
103 123 
116 117 
040 
103 040 
102 101 
103 117 
105 000 
040 040 
103 040 
040 
101 116 
040 
101 104 
0 040 
040 040 
101 104 
040 
103 123 
0 040 
124 131 
040 120 
124 000 
040 040 
103 040 
040 040 
101 116 
0 040 
120 101 
104 
040 
122 117 
105 040 
0 040 
105 101 
0 040 
123 122 
120 
124 000 


DH26: 


DH27 : 


DH30: 


-ASCIZ / PC BADCODE/ 


-ASCIZ / PC 


ASCIZ / PC 


1 
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BANK VADD 


BANK 


PADD 


PADD 


WROTE 


CSR MTYP PAT/ 


READ CSR PAT/ 


SEQ 0424 


= A 


ee dec At i ee 


| CVMJAAO MSV11-J MEMORY DIAG. 
| MESSAGES 


14764 
14765 065123 
065126 


14766 065205 


06 
14767 065262 
06 


06 
14768 065324 
06 


200 


040 
040 
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.SBTT 
040 MSGOO01: .ASCIZ 





MSGO02: 


MSGOO3: 


L 


.ASCIZ 


MESSAGES 


<CRLF>/ 


<CRLF>/ 


ASCII <CRLF>/ 


.ASCIZ 


/ 


MEMORY CONFIGURATION MAP/ 


16K WORD BANKS/ 


SEQ 0425 


ee 


——— 


—— —<——-— = 


| CVMJAAO MSV11-J MEMORY DIAG. 
| MESSAGES 


= —-+- =— ne 
° . 


14769 065367 
06537 


14771 


065375 
06 


500 
065503 


065506 
14772 065507 
065512 


200 
040 


ee em re me - ——--<——— — -«- 
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040 MSGO004: 





MSGOOS: 


MSGO006 : 


MSGO09: 


MSGO10: 


MSG1IA: 


-ASCII <CRLF>/ 


.ASCIZ 


. ASCIZ 


.ASCIZ 


. ASCIZ 


-ASCIZ 


. ASCIZ 


SEQ 0426 


012345670123456701234567/ 


/012345670123456701234567012345670123/ 


<CRLF>/ERRORS / 


<CRLF>/UNDEFINED TRAP INSTRUCTION/<32> 


<CRLF>/MEMTYPE / ;MEMORY TYPE 


<CRLF>/PROTECT / sMEMORY PROTECTED 


- _—— ue 


| CVMJAAO MSV11-J MEMORY DIAG. MACRO VO5.01b Friday 15-Feb-85 16:10 Page 473-2 
MESSAGES SEQ 0427 
065634 061 

040 


065642 040 
065645 040 


14776 oe MSGO11: .ASCIZ / 0 1 2 3 4 5 6/ 


SSSRESESSESESSESESLE 


064 
065725 040 040 


040 040 
06 066 000 
14777 065744 064 065 066 MSGO12: .ASCIZ /45670123456701234567012345670123456 70123456 70123456 701234567/ 

065747 067 060 061 
065752 062 063 
065755 065 066 067 
065760 060 061 062 
065763 063 064 065 

766 066 067 
065771 061 062 063 
065774 064 065 


005 065 067 
066010 060 061 062 
013 063 065 
066016 066 067 
066021 061 062 063 
066024 064 065 
rs fi 067 060 061 
0660 062 063 
066035 065 066 067 
066040 000 
14778 066041 061 000 MSGi1B: .ASCIZ /1/ 
14779 066043 067 000 MSG1iC: .ASCIZ /7/ 
14780 066045 060 061 062 MSG11D: .ASCIZ /01234567/ 
066050 063 064 065 
066053 066 067 
14781 066056 130 000 MSGO13: .ASCIZ /X/ 
14782 066060 040 000 MSGO14: .ASCIZ / / ; SPACE 
14783 066062 000 000 MSGO15: .BYTE 0,0 sFOR SINGLE ASCII CHARACTERS & TERMINATOR 
14784 066064 200 103 123 MSGO16: .ASCIZ <CRLF>/CSR / 
066067 122 040 040 


| 
065631 040 
| 
| 
| 
; 


ee 





ele - 


———<—--—— — 


re we ee 


ee a 


| CVMJARO MSV11-J MEMORY DIAG. 
| MESSAGES 


066075 
14785 066076 
066101 


066104 
14786 066107 
14787 066112 

066 


14788 066116 


066 
14789 066137 


066 
14791 066174 
14792 066211 


14793 


14794 066251 


040 
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040 MSGO17: 
000 MSGO18: 
040 MSGO019: 
123. MSGO20: 


117 MSGO21: 


-ASCIZ 


-ASCIZ 
. ASCIZ 


.ASCIZ 


. ASCII 


.ASCITI 


.ASCIT 


-ASCII 


.ASCIT 


.ASCII 


.ASCIT 


.ASCITI 


4 f 
2 


/ ;8 SPACES 


;2 SPACES 
;3 SPACES 


<CRLF>/FS COMMAND MODE/ 


<CRLF>/COMMANDS AVAILABLE: / 


<CRLF>/0 


<CRLF>/1 


<CRLF>/2 


<CRLF >/3 


<CRLF>/4 


<CRLF>/5 


<CRLF >/6 


= EXIT/ 


= READ CSR/ 


LOAD CSR/ 


EXAMINE MEMORY / 


= MODIFY MEMORY/ 


= SELECT BANK & TEST/ 


= TYPE CONFIG MAP/ 


—— Ee ES 


SEQ 0428 


cq rr ee —— —— EE —_—_—— —— 


CVMJAAO MSV11-J MEMORY DIAG. MACRO VOS.0lb Friday 15-Feb-85 16:10 Page 473-4 
MESSAGES SEQ 0429 


066333 040 103 117 
106 


066336 116 111 
066341 107 040 115 
066344 101 120 : 
14797 066346 200 067 040 ASCII <CRLF>/7 = SOB-A-LONG TEST/ 
066351 075 040 123 
3 117 102 055 
066357 101 055 114 
5 124 105 
066370 123 124 
14798 066372 200 070 040 ~ASCII <CRLF>/8 = ERROR SUMMARY/ 


14799 066414 200 O71 075 -ASCII <CRLF>/9= REFRESH TEST/ 


124 105 
066433 123 124 
14800 066435 200 061 060 -ASCII <CRLF>/10= SET FILL COUNT/ 
066440 075 040 123 
066443 105 124 04 
111 114 
066451 114 040 103 
54 117 125 116 
066457 124 
14801 066460 200 061 061 -ASCII <CRLF>/11= ENTER KAMIKAZE MODE/ 
066463 075 040 105 
66 116 124 105 


06650 
14802 066510 200 061 062 -ASCII <CRLF>/12= EXIT KAMIKAZE MODE/ 


5 0 115 117 
066535 104 105 
14803 066537 200 061 063 -ASCII <CRLF>/13= TURN CACHE OFF/ 
542 075 124 
066545 125 122 116 
5 040 103 101 


{ 

i 

| 066362 117 «24116 ~=«:107 
06636 040 


14804 066562 200 061 064 -ASCII <CRLF>/14= TURN CACHE ON/ 


EE Se 


~CVMJAAO MSV11-J MEMORY DIAG. 
_ MESSAGES 


14806 


14807 


14808 


14809 
14810 


14811 


14812 


14813 
06 


14814 


103 
040 
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MSGO22: 


MSGO023: 


MSGO025: 


MSGO026: 


MSGO027: 


MSGO028: 


.ASCIT 


.ASCIT 


.ASCIT 


.ASCIT 


.BYTE 
.ASCIZ 


. ASCIZ 


.ASCIZ 


.ASCIZ 


. ASCIZ 


. ASCIZ 


<CRLF>/15= TEST SELECTED BANKS/ 


<CRLF>/16= TEST ALL BANKS/ 


<CRLF>/17= ENABLE TRACE/ 


<CRLF>/18= DISABLE TRACE/ 


15,12,0 
<CRLF>/WHICH CSR(CO-F)? / 


<CRLF>/CSR WORD? / 


<CRLF>/CSR DOES NOT EXIST/ 


<CRLF >/COMMAND : / 


scRLF>/OLD CSR WAS/ 


<CRLF>/CSR IS NOW/ 


me rrr eee ee 


-CVMJAAO MSV11-J MEMORY DIAG. 
MESSAGES 





06 
14816 
06 


06 
14817 
06 


06 
14818 
06 


OF 
14821 


06 
14822 
06 


14823 
14824 


rm ee ~- — _ — _-— —— = 
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MSGO029: 


MSGO30: 


MSGO31: 


MSGO32: 


MSGO33: 


MSGA34: 


MSGB34: 


MSGO35: 
MSGO36: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


. ASCIZ 


. ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 
-ASCIZ 


<CRLF>/EXAMINE MEMORY/ 


<CRLF>/BANK(O-177)? / 


<CRLF>/PHYSICAL ADDRESS(0-17757776)? / 


<CRLF>/PARITY ABORT/<32> 
<CRLF>/TIMEOUT TRAP/<32> 


<CRLF>/BYPASSING [CC TESTS ON BANK / 


/ DUE TO SBE LOCATIONS/ 


/QV/ 
<CRLF>/MODIFY MEMORY/ 


SEQ 0431 


——~| —--— ~~ 


DDL LE LL _ 


eae 
— TEE LL 


ee rrr re ee ee 


'CVMJAAO MSV11-J MEMORY DIAG. 
| MESSAGES 


14825 


14826 067334 


06 
14827 
06 


06 
14828 
06 


06 
14829 
06 


14831 


06 
14832 
06 


mmm —so-—— «= -— oe eee ~e 
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117 


MSGO37: 


MSGO38: 


MSGO39: 


MSGO040: 


MSGO41: 


MSG042: 


MSG043: 


MSGO46: 


MSG047: 


.ASCIZ 


.ASCIZ 


. ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


<CRLF>/OLD DATA WAS / 


<CRLF>/DATA IS NOW / 


<CRLF>/INPUT NEW DATA? / 


<CRLF>/SELECT BANK & TEST/ 


<CRLF>/BANK NOT ACCESSABLE/ 


<CRLF>/TEST(O-47)? / 


<CRLF>/TEST 0 DATA IS? / 


<CRLF>/TO ESCAPE TYPE ANY KEY/<CRLF><12><12> 


<CRLF>/TEST COMPLETE/ 


SEQ 0432 


— ee ee eee 


ce ALAM AL NE A 


_CVMJAAO MSV11-J MEMORY DIAG. MACRO VOS.Olb Friday 15-Feb-85 16:10 Page 475-8 
' MESSAGES 


| 14834 067557 040 116 117 MSGO48: .ASCIZ / NOT AVAILABLE NOW - TRY LATER!/ 
067562 040 1 


067601 055 

7604 124 122 131 
067607 040 114 101 
067612 124 105 122 


%6 
14835 pode h 200 102 23} MSGO49: .ASCIZ <CRLF>/BANK REQUIRES RELOCATION/ 


14836 .EVEN 
14837 067652 120 117 127 MSGOS1: .ASCIZ /POWER RECOVERY/ 


067666 000 
14838 yo ts 3 200 123 117 MSGOSS: .ASCIZ <CRLF>/SOB-A-LONG TEST/ 


06 000 
14839 067712 200 102 382 MSGO56: .ASCIZ <CRLF>/BELL = EACH PASS COMPLETE/ 


06 000 
14840 poddins. 200 040 040 MSGO58: .ASCIZ <CRLF>/ CSR CSR .../ 


06 000 
14841 ys fhe 077 077 077 MSGO61: .ASCIZ /77777?/ 


000 
14842 p= Ub 111 116 = MSGO62: .ASCIZ /INPUT MUST BE A/ 


070015 
14843 070016 116 040 117 MSGO63: .ASCIZ /N OCTAL / 


es ED EE 


SEQ 0433 


| 
' 


—_ -— — em —— amma i mma, 


14844 070027 


0 
14845 pL 4 


0 
14846 070051 
070054 


0 
14847 oretee 


07 
14848 pda Hi 


0 
14850 pha Te 


0 
14851 erases 


0 
14852 phn! 


LE 


_CVMJAAO MSV11-J MEMORY DIAG. 
| MESSAGES 


101 


MSG064 : 


MSGO65: 


MSGO66 : 


MSG067: 


MSGO70: 


MSGO73: 


MSGO75: 


MSGO76: 


MSGO77: 


.ASCIZ 


.ASCIZ 


. ASCIZ 


.ASCIZ 


. ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


He 
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/NUMBER/ <CRLF > 


/ DECIMAL / 


<CRLF>/ERRORS > 20 - ABORTING FOR XXDP CHAIN/ 


/FATAL / 


/K WORDS OF MEMORY TOTAL/<CRLF> 


<CRLF>/REFRESH TEST/ 


<CRLF>/RELOCATION NOT POSSIBLE/<32> 


<CRLF>/ BANK ERRORS/<CRLF> 


<CRLF>/END PASS #/ 


SEQ 0434 


— ne 


LD ee ee ee 


/CVMJAAO MSV11-J MEMORY DIAG. 
' MESSAGES 


| 


07 
14853 

0 

0 
14854 

0 


0 
14855 a reatt 


0 
14856 
0 


0 
14863 pha so 


— ee = me 


040 


mmm _——_--—- — - 
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MSGO79: 


MSGO85: 


MSGO88: 


MSG089: 


MSGO90: 


MSGO91: 


MSGO92: 


MSGO93: 
MSGO95: 


MSG101: 


MSG102: 


-ASCIZ / ERROR(S) DETECTED/<CRLF> 


. ASCIZ 


.ASCIZ 


. ASCIZ 


- ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 
»ASCIZ 


-ASCIZ 


. ASCIZ 


<CRLF>/FILL COUNTCOCTAL)? / 


<CRLF>/KERNEL STACK/ 


<CRLF>/SUPERVISOR STACK/ 


<CRLF>/USER STACK/ 


/ IS EMPTY/ 


/RELOCATED / 


/BANK=/ 
4 TEST=/ 


<CRLF>/ENTERING KAMIKAZE MODE/ 


<CRLF>/LEAVING KAMIKAZE MODE/ 


LLL LLL LLL LLL LOL A —— 


SEQ 0435 


— — -~— -——- —_ 


A 


; 
! 


0 
14867 07 
0 


0 
14868 pda 


0 
14869 psa dd $4 


-~ —— «ne i i a. a a 


| CVMYAAO MSV11-J MEMORY DIAG. 
| MESSAGES 


117 
000 
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104 


MSG103: 


MSG104: 
MSG105: 


MSG106: 


MSG107: 


MSG110: 


MSG111: 


ASCIZ <CRLF>/LEAVING FS MODE/<CRLF> 


-BYTE 


32,0 ;CONTROL Z 
.ASCIZ <CRLF>/ENTER BANKS - USE NUMBER 200 TO TERMINATE/ 


.ASCIZ <CRLF>/CACHE IS OFF/ 


.ASCIZ <CRLF>/CACHE IS ON CEXCEPT DURING ACTUAL PATTERNS)/ 


.ASCIZ <CRLF>/ONLY SELECTED BANKS WILL BE TESTED/ 


.ASCIZ <CRLF>/ALL BANKS WILL BE TESTED/ 


SEQ 0436 


er 


ieee 


-CVMJAAO MSV11-J MEMORY DIAG. 
MESSAGES 


0 
14871 
0 


0 
14872 
0 


0 
14873 

0 

0 
14874 

0 


0 
14875 
0 


0 
14876 
0 


14877 


0 
14878 
0 


14879 
14880 


070776 


071205 
071210 
071211 


071230 


-_— ee ce ee 


ee em 


Ke 
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MSG1iie: 


MSG113: 


M1184: 


MSG117: 


MSG119: 


MSG120: 


MSG121: 


MSGi2e2: 


MSGAi22:. 


. ASCIZ 


.ASCIZ 


. ASCIZ 


.ASCIZ 


~ASCIZ 


. ASCIZ 


.ASCIZ 


.ASCIT 


BYTE 
ASCIZ 


/K OF Q-BUS PARITY MEMORY/<CRLF > 


/K OF ECC MEMORY/<CRLF > 


<CRLF>”" 11784" 
<CRLF>" 11/783" 
<CRLF>/ NO/ 


/ CACHE AVAILABLE/ 


/ CACHE BYPASSED/ 


<CRLF>/CSR NUMBER / 


0 
/ CONTROLS TOO MANY BANKS/ 


SEQ 0437 | 


meee eee ee - 


- a  ietiiienedl 


_CVMJAAO MSV11-J MEMORY DIAG. 
_ MESSAGES 


0 
14882 
0 


0 
14883 
07 


0 
14884 
07 


0 
14885 
0 


0 
14886 
0 


14887 
14888 


071235 


071466 
071471 
071474 


—— —_—_——— or 
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MSG125: 


MSG126: 


MSG127: 


MSG128: 


MSGO008 : 


MSGOOO0: 


MSG129: 
MSG130: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 
.ASCIZ 


/ PASSES COMPLETED/ 


<CRLF>/PROGRAM CSR COULD NOT BE DETERMINED/ 


<CRLF>/TRACE ENABLED/ 


<CRLF>/TRACE DISABLED/ 


<CRLF ><CRLF >/ CSR MAP/<CRLF > 


<CRLF>" CVMJAO ECC/PARITY MEMORY DIAGNOSTIC" 


<CRLF ><CRLF > 
/PROCESSOR NOT SUPPORTED BY THIS DIAGNOSTIC/ 


SEQ 0438 


A A 


_———_ ee — ie tay, cl  LALMM¢LL,LLLA AL EE 


071477 103 


071510 124 
071513 125 
071516 117 
071521 105 
071524 102 
071527 124 

71532 123 
071535 111 


07 000 
14889 phe ot 200 


71552 111 
071555 123 
071560 105 
071563 122 

1566 127 
071571 114 
071574 117 
071577 102 
071602 124 
071605 124 
071610 200 


14890 

14896 071612 

14897 071612 

14898 071612 010322 
14902 000200 


CVMJAAO MSV11-J MEMORY DIAG. 
MESSAGES 


116 NOUBMT: 
125 


. ASCIZ 


. EVEN 
$$END 


MACRO V05.01lb Friday 15-Feb-85 16:10 Page 473-14 


<CRLF>/UNIBUS MEMORY WILL NOT BE TESTED/<CRLF > 


-PRINT 60000-SUPLIMIT ;SUPERVISOR ADDRESSES LEFT 
.END STARTS 


SEQ 0439 


_—- ee ee ee ae ee ee 


rr ee ee 
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| CVMJAAO MSV11-J MEMORY DIAG. 
| Sy teble 


mbo] SEQ 0440 | 





BSIZE 002374 B61 035112 CPUERR= 177766 DH13 ©: 064172 
ABORTF 002144 BO 004652 B62 035116 CR =: 000015 DHi4 064267 
ABORT 1 32 Bi 005656 B63 035322 CRLF = 000200 OH1S 064346 
ABORT2 B10 012262 864 035326 CSR 002150 DH16 & 
FLAG 002116 Bi 045566 B65 036444 CSRADD= 172100 0H19 502 
ACTFLA 002350 Bi0i 046040 B66 036452 CSRBMP 024 DH2 063536 
002034 B102 046046 B67 036602 CSRCAS 017004 DH20 064507 
007372 Bi03 053522 87 012220 CSRFBA 002232 DH23 «064 
0407 B104 053526 B70 036616 CSRFIR 002226 OH24 
APTECC 002424 B105 053624 B71 043510 CSRHOL 002 DH25 064714 
APTFLA 0023 B106 053716 B72 043746 CSRINC 002330 OH26 0: 0647 
HAN 014126 B107 054002 873 044230 CSRINF 002462 OH27 064770 
APTHLT 0407 Bil 013010 B74 044524 CSRINT 002236 DH3 063561 
APTPAR 002422 Bi2 13060 B75 044524 CSRLAS 002230 DH30 
APTSIZ 002444 B13 013122 B76 044622 002234 063615 
K 051530 B14 13400 B77 045562 CSRLOO 002332 DH6 063674 
BACKGN 032630 B15 014172 CACHKF 002550 C 063741 
002052 B16 015610 CACHKN 002 002152 DIAGFL 00 
002022 B17 016060 CACHOF= 104424 CSR 35314 DISPLA 00 
BADPSW 002032 006050 CACHON= 104423 CSRSTU= 21 ISPRE= 000174 
SP 002026 B20 016066 CACHVE= 000114 SRIS 002322 DISPTB 01 
BADSTA 034152 B21 016104 BCSR = 104474 CTEST 006714 ACK 014162 
BADXOR 002060 B22 016146 CBITS 002316 CTLKVE 002146 7 
002054 B23 016220 CBREG = 104513 ATARG= 177754 OSWR = 177570 
3 056 B24 1642 CBICSR= 104475 DATBUF 002242 OT1 060144 
014262 B25 1646 CK 002314 DBEMSK 002256 D110 060264 
014370 B26 022026 CHKDIS= 104 ODISP = 177570 DTii 060 
002632 B27 022034 CHKTRP 032220 DEENER= 104421 OT12 060314 
002102 006120 CHKIDI= 104505 DETAIL 053266 0113 060 
BANKIN 002104 B30 0222 CKEND 055056 DETFLA 002220 0114 060342 
MO 037442 B31 025750 CKSWR = 104410 DETPSW 002216 D116 060 
0456 B32 026140 CLRCSR= 104502 DETRO 002200 0117 060410 
014476 B33 026176 CLREX 00734 DETRi 002202 DT2 060156 
014626 B34 026620 L 007232 DETR2 204 D720 060416 
027610 B35 26656 CLRICS= 104503 DETR3 206 DT22 060426 
002324 B36 026672 CMD16A 10 DETR4 002210 0123 060434 
= 000001 B37 027012 CMD16L = 74 DETRS 002212 0724 060456 
= 000002 B4 00 CMD5B 042752 DETSP 002214 0125 060476 
= 002000 B40 027172 CMOSC 043246 Ti 053756 D126 060510 
= 004000 1 027214 CMD7B 043504 DF 1 060556 0127 060516 
= 010000 B42 027742 CMD7C 043560 OF11 060701 O13 060162 
= 020000 B43 030102 CMD9B 044224 OF13 060712 DT30 060536 
= 040000 B44 030140 CMD9C 044300 DF14 060722 O14 060172 
= 100000 B45 030432 CONFGE 002450 OF15 06073! O15 060202 
= 000004 B46 30646 CONFIE 003670 OF16 060740 016 060220 
= 000010 B47 031050 CONFIG 002664 060557 017 2 
= 000020 CONTFL 002222 DF3 3 002176 
= 000040 B50 031224 CONTRL= 177746 OF4 060616 CS= 000103 
* 000100 B51 031244 CONTS 055226 OFS 060631 ECCDIS= 104470 
= 000200 B52 031254 CONTSi 054570 060644 CCINI= 104472 
= 000400 853 031572 CONTS2 055230 OF? 060657 ECCIDI= 104471 
= 001000 031742 CONTS3 047340 060672 ECCLIN= 104473 
040770 855 031756 CONTT 055152 OF9 060674 EMTSAV 003670 
041010 032022 COUNT 002370 DH1 063501 EMTVEC= 
041024 857 034746 CPERRF 052314 DH10 064051 EM11 061247 
002130 B6 011544 CPSAVE 052312 DH11 064147 EMi2 «0612711 
027612 B60 034752 CPUBIT 002106 DH12 064165 EM13. 0611315 
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035164 


2 
002050 


GTSWR = 
ADER 


r 

wo 

wm 

Ww 
nnunhune 


SS ES ee Se ce SO 


002524 
177546 


LOADBA 
L = 





002432 
25 
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_ Symbol table 

L150 017126 L237 026764 L334 033434 L416 043044 L501 051604 
Li51 017130 L24 1 L335 033530 L417 043060 L502 052044 
Li 017174 Le 026714 L336 033520 L42 35. L503 052000 
L153 017230 L241 026726 L337 033526 L420 04307. L504 052024 
L154 017234 L242 026744 L34 0063 L421 043422 LSO5 052044 
L155 017236 L243 026752 L340 033536 L422 043424 

Li 017404 L244 026776 L341 033562 L423 043536 L507 052256 
L157 017764 L245 027134 L342 033664 L424 044050 LS1 006700 
L16 Le 27034 L343 034532 L425 044034 L510 §=—6. 052126 
L160 020370 L247 27046 L344 034540 L426 4 L511 

L161 020400 Les 006146 L345 034776 L427 044142 LSie 052204 
L162 L250 027100 L346 034776 L43 5 L513 052216 
L165 020472 L251 7 L347 035040 L430 044144 L514 052254 
L164 2 L252 027076 L35 30 L431 0442 L515 052264 
L165 0 2 L253 027122 L350 035046 L432 044546 L516 052620 
L166 021036 Le 027110 L351 035142 L433 044550 L517 3 
L167 021070 L255 027122 L352 035142 L434 045014 LS2 010636 
L17 005724 L256 027234 L353 L435 045030 L520 053752 
L170 021134 L257 030134 L354 035212 L436 L521 

L171 021754 L26 154 L355 035334 L437 045052 L522 36 
Li72 021732 L260 030140 L356 036416 L44 L523 054042 
L173 021754 L261 030224 L357 036432 L440 045200 L524 055044 
L174 022020 L262 030242 L36 006434 L441 045202 LS25 

L175 022142 L263 030246 L360 036444 L442 L526 055172 
L176 022120 Le 0 L361 036444 L443 045472 L527 

L177 022142 L267 030522 L362 036546 L444 LS3 010642 

L27 L363 036576 L445 L530 055264 

L20 005752 L271 030570 L364 036720 L446 047376 LS4 01 
L200 022326 L272 030576 L365 036720 L447 047400 LSS 011374 
L201 0223526 L273 030722 L366 036720 L45 LS6 011410 
L202 022434 L274 030772 L367 036700 L450 050230 LS7 011512 
L203 022406 L276 031132 L37 L451 050242 L6 

L204 L277 031202 L370 036720 L452 0 L60 011516 
L205 022654 L3 5054 L371 036762 L453 050262 L61 011662 
L206 023170 L301 031354 L372 036762 L454 050302 L62 011662 
L207 023424 L302 031430 L373 037012 L455 050314 L63 011662 
L2i 005770 L303 031446 L374 040 L456 050332 L64 011662 
L210 023444 L304 031474 L375 040374 L457 050334 L65 011656 
L2il 023544 L31 2 L376 040556 L460 L66 011734 
L212 023724 L310 031636 L377 040624 L461 050552 L67 011740 
L213 023732 L311 031700 L4 005072 L462 L7 

L214 024070 L313 032016 L40 006510 L463 0 L70 011742 
L215 024076 L314 032022 L400 040630 L464 050620 L71 012124 
L216 024256 L315 032074 L401 040636 L465 050636 L72 012124 
L217 L316 032076 L402 040652 L466 050650 L73 012124 
2 024270 L317 032134 L403 0664 L467 050662 L74 0121350 
L221 025704 L32 L404 041076 L470 050704 L75 012346 
L222 025742 L320 L405 041106 L471 050752 L76 012346 
L223 026022 L321 032160 L406 041242 L472 051032 L77 12336 
L225 026172 L325 032252 L407 041302 L473 MAINT = 177750 
L226 026176 L326 032250 L41 006562 L474 051050 MAPHO = 170202 
L227 026272 L327 032272 L410 041306 L475 051164 MAPKER 037740 
L230 L33 L411 041336 L476 051254 MAPLO = 170200 
L231 L330 032272 L412 041350 L477 051264 MAPL1 = 1 

L232 026372 L331 032410 L413 042536 LS 005150 MAPPER 035716 
L235 L332 032456 L414 042576 LSO MASK 002320 


026642 006636 
L236 026652 L333 033034 L415 042636 L500 051604 MBERR 012602 
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000007 


MSG122 
MSG125 
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071174 
071242 





071264 


020070 


NULLFL 
NXTCSR 
OLDCAC 


020140 


002302 


PERR31= 
PERR32= 


104456 


SEQ 0443 


EE SS ”_ - 


_ CVMJAAO MSV11-J MEMORY DIAG. 


Symbol table 
| PERR33= 104457 
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003706 SUPDRO 002160 TMFLAG 
003710 SUPDR1 002162 OMA 
002270 S 2 002164 TOTCSR 
002252 SUPDRS 002166 TRACE 
016756 SUPDR4 002170 TRAPVE= 
026422 SUPDRS 002172 TSTBAN 
016500 SUPDR6 002174 TSTDAT 
SUPLIM 047456 TSTRDO1L 
172260 SUPSTK= 000740 TSTREA= 
172272 SWAPAT 002634 TST1 
172274 002636 TST2 
172276 SWREG = 000176 TST3 
002602 SWREND 055054 TST4 
002604 SWRFLG 002566 TSTS 
002002 SWO = 000001 TST6 
040510 SWi = 2 TYPDS = 
011444 SW10 = 002000 TYPEIT= 
040636 SWil = 000 TYPOC = 
172240 SWi2 = 010000 TYPOS = 
172246 SW13 = 020000 TYPSO = 
172252 SW1i4 = 040000 TYPS1 = 
172254 SWi5 = 100000 TYPS2 = 
172200 SW2 = 000004 TYPS3 = 
SW3 = 000010 TYPS4 = 
002010 SW4 = 000020 TYPSS = 
2342 SWS == 000040 TYPS6 = 
051226 SW6 = 000100 UDPARO= 
2066 SW7 = =: 000200 UDPAR7= 
037012 SWB = 0004 UFDSET 
012606 = 001 UIPARO= 
002572 SYNREG= 104514 UIPARi= 
SYSSIZ 004012 UIPAR2= 
002620 TA 011046 UIPAR3= 
2312 TAGS$ 011102 UIPAR4= 
002240 TAGS$ 024364 UIPARS= 
TAG70$ 052736 UIPAR6= 
177776 TAG71$ 052746 UIPDRO= 
002 TAG72$ 052756 UNITOP 
003670 TAG73$ 053026 UNMAP 
000300 TAG74$ 053 UNRELO 
000310 TAG75$ 053 UPPFLG 
000200 TAG76$ O53112 USERMA 
021634 TAG77$ 0531 USESTK= 
002420 TAG78$ 053164 oS 
002366 TAG79$ 053244 VMK 
7 TAG9$ 010710 WARN1 
005032 BG4$ 024542 WARN2 
011440 TCFIGi 033404 WARN3 
012766 TCFIG2 033444 WARN4 
012172 TCFIG3 033600 WARNS 
104 TCONFI 933336 WASDBE = 
002334 TE 002434 WASSBE= 
002262 TESTAD 002412 WAS1DB= 
024270 TESTMO 002552 WAS1SB= 
024304 TIME 002340 WHICHC 
024446 TIMEOU 034114 WOOPEN 
024462 TKVEC = 000060 WOOPS 


AS eS eee ee 


002134 


046654 
046306 


SEQ 0444 


$CPUOP 056674 
$CRLF #002660 
$DBLK 054520 
$DB20 056526 
$DDWO 056734 
$DDWi 056736 
$DDW2 0567 
$DDWS 056742 
$D0W4 056744 
$D0W5 056746 
$DDW7 056732 
$DE 034222 
$DEVCT 0566 
VM 056724 
$DIDDO= 
$DOAGA 014156 
$DOAGN 014052 
$DOWN 045722 
$DTBL 054510 
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$ENV 0 $iL = 1 = $PER37 
$ENVM 056667 $LOADC 034274 S 056 $PER40 
EOP 013676 $LPADR 002622 $PASTM 056756 $PWRON 
$ERFLG 002014 $LPERR 002624 $PATMA 002012 $PWRUP 
$ERRGE 035412 $L$ = $PERO1 047456 $QUES 
E 051502 $MADR1 056700 $PERO2 047504 $ 
$ERRTB 057274 2 056704 $PERO3 047532 $RAND 
$ERRTY 052316 $MADR3 056710 ER 047562 $RDCHR 
$ERTTL 0026 $MADR4 056714 $PERO7 047 $RDDEC 
$ESCAP 002362 $MAIL 0 $PER10 047666 $RDLIN 
T 0 $PER11 047716 $RDOCT 
$ETEND 056750 $MAMS2 056702 $PER12 047736 $READC 
$EXHAL 040630 $MAMS3 056706 $PER13 047760 $RESRE 
se$ = $ 056712 $PER14 05 $SAVRE 
$F ATAL $MBADR 056752 $PER15 050022 $SAVR6 
$FILLC 002652 $MNEW 055766 $PER16 050044 COPE 
$FILLS 002357 $MSGAD 0 2 $PER17 05 STN 
= $ G $PER20 050102 $SVLAD 
$GTSWR 054704 $MSGTY 0566 $PER21 050120 SV$ 
T OS521 MSWR 055755 $PER22 050 $SWR 
$HALT2 057024 $MTYP1 056677 $PER23 050156 $SWREG 
$HIBTS 0567 $MTYP2 056703 PER24 050174 $SYNRE 
OCT 056146 $MTYP3 056707 $PER25 0447 
$ILLUP 046300 $MTYP4 056713 $PER26 050364 $TESTN 
NVAL 035362 $NOTRA 057020 $PER27 050404 $TKB 
$ITEMB 002015 L 002356 045204 $TKS 
$I$ = $NWTST= $PER31 050574 ™N 
$K 034202 NT 054300 R32 050672 TPB 
$KMAP 036310 $OCTVL 0O $PER33 050740 $TPFLG 
$K$ = 000103 $OCT8 = 056634 ER34 051020 PS 
$L = 000110 $OMODE 054302 $PER35 051052 TRAP 
$LF 002661 $OVER 051416 $PER36 051106 
. ABS. 071612 (RW,I,GBL,ABS,OVR) 


000 
000000 001 (CRW,I,LCL,REL,CON) 
Errors detected: 0 


*** Assembler statistics 


Work file reads: 1286 

Work file writes: 949 

Size of work file: 25487 Words ( 100 Pages) 
Size of core pool: 17688 Words ( 68 Pages) 
Operating system: RSX-11M/PLUS 


Elepsed time: 00:32:57.57 
CVMJAO.BIN, CVMJAO/NL : TOC=CVMJAO/ML , CVMJAO . MAC 
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